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1.0  INTRODUCTION 


The  United  States  Coast  Guard  Office  of  Research  and  Development  is  in 
the  process  of  evaluating  advanced  surface  craft  concepts  as  well  as 

documenting  the  performance  of  its  present  Patrol  Boat  Classes  (WPB)  to 

support  the  acquisition  process.  The  Coast  Guard  Research  and  Development 
Center  has  been  directed  under  the  Advanced  Marine  Vehicle  (AMV)  Project's 

9207.2  Ship  Test  and  Demonstration  element  to  collect  baseline  data  on  both 
the  95'  and  82'  WPB's. 

This  data  will  be  incorporated  into  the  AMV  data  base  to  support  the  WPB 
vessel  acquisition  in  two  ways.  First,  the  baseline  performance  data  can  be 
used  directly  by  Headquarters  personnel  when  evaluating  proposed  replacement 
craft.  Next,  the  R&D  Center  will  utilize  the  data  as  input  for  various 
operations  analysis  computer  models  which  evaluate  a  vessel's  ability  to 
perform  Coast  Guard  missions.  Proposed  replacement  craft  can  then  be 

evaluated  and  compared  to  our  present  WPB  82'  and  95'  vessel  capabilities. 

2.0  DESCRIPTION  OF  THE  VESSELS 

The  United  States  Coast  Guard  patrol  craft  (WPB)  fleet  consists  of  25 
"CAPE"  class  95  feet  long  and  53  "POINT"  class  82  feet  long.  Both  classes  are 
conventional  displacement  hull  designs.  There  are  three  series  in  each  class 
as  described  in  Tables  I  and  II. 

3.0  TESTS  AND  DATA  COLLECTION 

The  objective  of  this  technical  evaluation  is  to  quantify  the  calm  water 

and  seakeeping  performance  of  the  Coast  Guard  95'  and  82'  patrol  craft.  Calm 

water  performance  tests  included  speed  vs.  power  and  fuel  consumption, 

zig-zag,  spiral,  tactical  data  runs,  and  a  noise  level  survey.  Seakeeping 

tests  included  ship  motion  in  waves  and  susceptibility  to  slamming  on  the  CGC 
CAPE  HIGGON  and  a  side-by-side  ships  motions  comparison  of  the  CGC  POINT  KNOLL 
and  CGC  CAPE  FAIRWEATHER.  The  execution  details  of  these  tests  can  be 
obtained  by  referring  to  the  GENERAL  TEST  PLAN  FOR  MARINE  VEHICLE  TESTING, 
reference  (1). 

This  data  was  collected  during  two  separate  tests.  The  CGC  CAPE  HIGGON, 
a  95'  WPB,  was  tested  in  January  1983  off  Gloucester,  Massachusetts,  to  obtain 
baseline  seakeeping  and  calm  water  performance  data.  The  CAPE  HIGGON  v/as 
instrumented  for  calm  water  performance  because  as  an  "R"  series  vessel, 
rebuilt  with  new  main  engines,  electronic  and  habitability  improvements,  it 
represents  the  majority  of  95'  WPB's.  The  side-by-side  motion  in  wave  test 
conducted  off  New  London,  Connecticut,  in  August  1983  with  the  CGC  CAPE 
FAIRWEATHER,  a  "B"  series  95'  WPB,  and  the  CGC  POINT  KNOLL,  a  "C"  series  POINT 
class  82'  WPB,  documented  comparable  seakeeping  abilities  of  both  craft.  Calm 
water  performance  data  was  collected  on  the  CGC  POINT  KNOLL  during  this  second 
test  period. 

Two  identical  ship  motion  packages  placed  at  the  ships'  center  of  gravity 
were  used  to  document  roll,  pitch,  and  heave  response  of  the  vessels  during 
side-by-side  seakeeping  tests  as  well  as  yaw  rate  and  yaw  angle  during  spiral 
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TABLE  I 


95'  WPB  -  PRINCIPAL  CHARACTERISTICS 


Length  Overall 

Length  8etween  Perpendiculars 
Beam,  Molded  at  Deck  Amidships 
Depth,  Molded  Amidships 
Draft,  Mean  to  Design  Waterline 
Hull 

Superstructure 
Frami ng 


95' -0" 

90* -0" 

19' -10" 

10' -8  1/2" 

4' -6  1/2" 
Steel 
A1 umi num 
Longitudinal 


NOT  TESTED  USCGC  CAPE  FAIRWEATHER 

“A"  Class  "8"  Class 


Displ ,  Full  Load,  LT 

102.7 

105.0 

Displ,  Light  Ship,  LT 

79.6 

82.5 

Complement 

15 

15 

Provisions  for 

14  days 

14  days 

Fresh  Water  Capacity,  gal 

1340 

1340 

Diesel  Oil  Capacity,  gal 

3145 

3145 

Maximum  Speed,  knots 

19.8 

19.5 

Cruising  Range  at  10  kn 

2154  nm 

2307  nm 

Propellers 

Two-48"  dia,  5  blades 

Same  as  "A" 

Shaft  Horsepower,  total 

2200 

2200 

Main  Engines 

Four-VT12-M  Cummins 

Same  as  "A" 

Generators 

Two-20KW 

Same  as  "A" 

At  Full  Load  Condition: 

KG 

7.10' 

7.44* 

GM 

4.75' 

4.30' 

LCG 

5.05'  aft  X 

5.72'  aft  X 

LCB 

4.94'  aft  X 

5.00'  aft  X 

Moment  To  Trim  1" 

20.46  ft-tons 

20.47  ft-tons 

USCGC  CAPE  HIGGON 
"R"  Class 

103.5 

93 

15 

14  days 
1340 
3145 
24 

2300  nm 
Same  as  "A" 

3000 

Two-GM  16V  149TI 
Two  30  kw 


7.12' 

4.64' 

4.55'  aft  X 
4.96'  aft  X 
20.48  ft-tons 
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TABLE  II 


82'  WPB  -  PRINCIPAL  CHARACTERISTICS 


Length  Overall  82' 10" 

Length  Between  Perpendiculars  78 '0" 

Beam,  Molded  at  deck  (Over  Guards)  17' 7" 

Depth,  Molded,  Amidships 

(Raised  Deck  to  Keel)  12' 0-1/8" 

Draft,  Mean  to  Design  Waterline  4 *8-3/4" 

Hull  Steel 

Superstructure  Aluminum 

Framing  Longitudinal 

NOT  TESTED  USCGC  POINT  KNOLL  NOT  TESTED 

"A"  Class  "C"  Class  "D"  Class 


Displ,  Full  Load,  LT 

67.5 

66.1 

69.4 

Displ ,  Light  Ship,  LT 

52.1 

51.8 

56.5 

Compl ement 

8 

8 

8 

Provisions  for 

10  days 

10  days 

10  days 

Fresh  Water  100%,  Gal. 

1554 

1271 

1271 

♦♦Diesel  Oil,  95%,  Gal. 

1830* 

1830* 

1830 

Maximum  Speed,  Knots 

Max.  Sustained  (633  rpm) 

23.5* 

23.7* 

22.6 

Cruising  Speed 

18.2* 

18.5* 

18.5 

Econ.  Cruising  Speed,  knots 

8.0* 

8.0* 

8.8 

Max.  Cruising  Distance 

1577* 

1584* 

1584 

Propellers 

Two-42"dia-44"pitch 

Same  as  "A"  Class 

Same  as 

"A"  Class 

5  blades* 

Shaft  Horsepower 

1600* 

Same  as  "A"  Class 

Same  as 

“A"  Class 

Main  Engines 

2  Cummins  Diesels 

Same  as  "A"  Class 

Same  as 

"A"  Class 

Generators 

Two  -  20  KW 

Same  as  "A"  Class 

Same  as 

"A"  Class 

Armament 

At  Full  Load  Condition 

81  mm  mortar-50  cal 

Same  as  "A"  Class 

Same  as 

"A"  Class 

KG*** 

8.61  * 

8.69* 

8.55* 

Corrected  GM 

3.13* 

3.15* 

3.07 

LCG 

4.24*  aft  2 

4.28*  aft  2 

4.92*  aft  X 

LCB 

3.83*  aft  X 

3.78*  aft  X 

3.90*  aft  X 

Moment  to  trim  1" 

11.1  ft-tons 

11 .05  ft-tons 

11.12  ft 

-tons 

Notes:  (*)  Revised  February  1971 

(**)  Usable  fuel  only.  Usable  fuel  is  defined  as  the  gallonage  that  can  be  pumped 
from  the  port  and  starboard  tanks  with  low  suction  piping.  Centerline  tank  is 
considered  emergency  fuel. 

(***)  Baseline  is  1.02*  below  keel  (skeg)  at  midships  for  this  condition. 


and  zig-zag  manuevers  in  calm  water.  Statistical  shock  recorders  were  used 
for  recording  slams  above  1  g  encountered  by  the  CAPE  HIGGON  in  4-5  foot  head 
seas.  Susceptibility  to  slamming  tests  were  not  conducted  on  the  POINT  KNOLL 
because  an  adequate  sea  state  of  4-5  feet  was  not  available  during  the  test 
period. 

Shaft  torque,  horsepower,  and  rpm  were  measured  with  two  identical  Acurex 
model  1202A  horsepower  meters.  A  full  bridge  strain  gauge  was  applied  to  the 
shafts  to  measure  torque.  An  FM  telemetry  system  powered  and  retrieved  the 
strain  gauge  signal. 

Data  during  all  tests  was  collected  by  a  14-channel  Racal  Store  14D 
analog  tape  recorder.  During  the  testing  of  the  POINT  KNOLL,  a  new 

computerized  Hewlett-Packard  data  acquisition  system  was  installed  in  addition 
to  the  analog  tape  recorder.  With  that  system  installed,  all  sensor  signals 
could  be  digitized  and  analyzed  on  board  to  ensure  good  data  quality  and 
provide  instant  checking  and  verification  of  ship  test  results.  The  location 
of  all  sensors  utilized  during  the  tests  on  the  82'  and  95'  WPB's  are  shown  in 
Figures  1  and  2,  respectively.  A  detailed  description  of  ship  test  equipment 
is  provided  in  Appendix  A. 

Ship  position  information  necessary  for  determination  of  turning  circle 
diameters,  advance,  transfer,  crash  stop,  and  fast  start  distances  was 

obtained  utilizing  a  Motorola  Mini -Range  system  deployed  around  Block  Island 
Sound.  Ships  heading,  rudder  angle,  and  start  and  stop  times  were  recorded  on 
analog  tape  aboard  the  vessel  synchronized  by  the  use  of  a  time  code  generator 
with  the  Mini-Range  receiver  system  located  on  Fishers  Island. 

4.0  DATA  ANALYSIS 

Ship  motion  and  wave  height  data  was  analyzed  and  averaged  over  20  to 
30-minute  records  for  each  of  5  legs  of  the  seakeeping  runs.  The  average 
highest  one-third  (H  1/3}  and  average  highest  one-tenth  (H  1/10)  amplitudes 
were  computed  utilizing  two  computer  programs  titled  GENSES  and  GENPEAK. 

The  GENSES  program  runs  on  a  Hewlett-Packard  (HP)  9835B  computer.  It 
digitizes  up  to  20  channels  of  analog  data  recorded  on  the  Racal  tape 
recorder(s)  with  the  use  of  an  HP  data  acquisition  control  unit  and  HP  digital 
volt  meter. 

After  GENSES  is  executed,  the  GENPEAK  program  is  utilized  to  search  the 
digital  file  for  peaks,  record  all  peaks  exceeding  a  defined  limit  (i.e.  1 
foot  wave  height),  and  then  sort  all  peaks  from  high  to  low.  Subsequently, 
the  H  1/10  and  H  1/3  values  are  averaged. 

Selected  motions  are  further  analyzed  in  the  frequency  domain.  Response 
Amplitude  Operators  (RAO's)  are  calculated  for  heave  and  pitch  motions  during 
head  seas,  and  roll  RAO  during  beam  sea  side-by-side  runs.  The  heave  RAO  for 
CAPE  FAIRWEATHER  could  not  be  calculated  due  to  equipment  failure,  resulting 
in  no  heave  data  for  that  vessel.  Calm  water  and  seakeeping  performance  data 
tables  are  included  in  Appendices  B  and  C  respectively.  Details  of  the  RAO 
analysis  and  data  plots  are  provided  in  Appendix  D. 
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RUDDER  ANGLE 


potentiometer  installed  was  calibrated  using  the  auxiliary  steering  tiller  in 
place  on  the  rudder  post.  The  4  degrees  right  rudder  at  16.5  knots  and  9 
degrees  right  rudder  at  6.5  knots  necessary  to  obtain  0  yaw  rate  indicates 
that  the  0  rudder  angle  was  most  likely  calibrated  a  few  degrees  to  the  left 
of  center.  Both  vessels  demonstrated  good  course  keeping  stability  at  low 
rudder  angles  as  seen  in  Figures  13  to  16.  Tabular  data  is  presented  in 
Appendix  B,  Tables  B-IV  and  B-V. 

Zig-zag  (overshoot)  maneuvers  were  also  conducted.  These  tests 
documented  the  ability  the  ship’s  rucder  system  has  in  controlling  the 
vessel.  Overshoot  yaw  angle  is  an  indication  of  the  amount  of  anticipation 
required  of  a  helmsman  while  operating  in  restricted  waters.  The  time 
required  for  the  ship  to  react  to  a  20  degree  rudder  change  is  an  indication 
of  rudder  effectiveness  at  that  speed.  Zig-zag  plots  for  the  CAPE  FAIRWEATHER 
are  presented  in  Figures  17  to  19  and  the  tabular  data  is  included  in  Table 
B-VI  in  Appendix  B.  Note  that  the  overshoot  angle  tabulated  is  the  average  of 
all  the  executions  recorded  during  each  maneuver.  The  zig-zag  test  for  the 
POINT  KNOLL  was  unsatisfactory,  and  the  test  will  be  redone  when  a  "POINT" 
class  cutter  is  re-tested  for  fuel  consumption. 

5.4  Noise  Levels 


The  OSHA  Standard  for  noise  levels  is  presented  in  Figure  20.  Noise 
level  surveys  conducted  on  both  classes  are  presented  in  Tables  B-VI I  and 
B-VI  1 1  in  Appendix  B.  The  CGC  CAPE  HIGGON  had  very  loud  noise  levels  which 
quickly  surpassed  ISO  standards  as  seen  in  Figure  21.  The  CGC  POINT  KNOLL  was 
much  quieter  as  seen  in  Figure  22. 

5.5  Towing 

The  POINT  KNOLL  towed  the  CAPE  FAIRWEATHER  at  various  speeds  in 
order  to  measure  the  towing  capability  of  the  82'  WPB  and  document  the  drag  of 
the  95'  WPB.  The  results  of  this  data,  obtained  with  the  CAPE  FAIRWEATHER' s 
propellers  freewheeling,  are  presented  in  Figure  23.  Time  did  not  permit  a 
reversal  of  the  towing  situation. 

6.0  SEAKEEPING  PERFORMANCE 

6.1  Sea  State  Information 


Wave  height  information  was  obtained  using  a  Wave  Rider  and  a  Endeco 
956  Wave-Track  directional  buoy  during  the  side-by-side  ship  test.  A 
comparison  of  significant  wave  heights  measured  from  both  buoys  is  presented 
in  Figure  24  and  Table  B-IX.  The  Endeco  buoy  consistently  gave  slightly  lower 
significant  wave  heights  during  the  side-by-side  seakeeping  runs  on  2  August 
1983.  The  average  of  all  significant  wave  height  runs  shown  in  Figure  24  is 
3.0  feet.  The  sea  state  was  fairly  unidirectional  as  seen  in  the  directional 
wave  energy  plot  obtained  from  the  Endeco  buoy,  Figure  25.  Visual  estimates 
placed  the  major  swell  coming  from  170°T,  the  same  as  the  Endeco  buoy.  This 
course  was  used  as  the  head  sea  condition.  Wind  driven  waves  were  developing 
from  1 45°T ;  however,  this  is  not  clearly  seen  on  the  directional  plot. 
Probably  the  wind  waves  were  at  a  slightly  shorter  period  than  the  software's 
3.3  second  cut-off  (0.30  HZ).  A  three  dimensional  view  of  relative  wave 
energy  from  the  Endeco  data  is  presented  in  Figure  26. 
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FIGURE  9  -  CAPE  HIGGON  -  CRUISING  RANGE 
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USCGC  CAPE  HIGGON  (WPB  95302) 
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FIGURE  6  -  CAPE  HIGGON  -  SHAFT  RPM  VS.  SPEED 


SHRFT  RPM  VS  SPEED 

USCGC  PT  KNOLL 


S3NI3N3  OH1  (SIONX)  Q33dS 


FIGURE  5  -  POINT  KNOLL  -  SHAFT  RPM  VS.  SPEED 


SPEED  VS  POWER 

USCGC  CAPE  HIGGON  (NPB  95302) 


FIGURE  3  -  CAPE  FAIRWEATHER  -  SPEED  VS.  HORSEPOWER 


In  order  to  more  fully  visualize  these  tables  of  numbers  relating  to  a 
ship's  seakeeping  and  calm  water  performance  abilities,  various  graphic 
techniques  are  utilized  and  presented  in  the  text  portion  of  this  report. 

5.0  CALM  WATER  PERFORMANCE 

5.1  Speed  vs.  Power 

The  CAPE  HI6G0N  is  an  "R"  series  95'  WPB  with  two  new  GM16V  149TI 
high  speed  diesel  engines  which  replace  four  VT12-M  Cummins  engines.  The  port 
shaft  HP  meter  operated  consistently  and  accurately;  however,  the  starboard 
system  was  unreliable.  Results  shown  in  Figure  3  were  obtained  by  doubling 
the  port  HP  meter  readings.  Measured  shaft  horsepower  was  significantly 
greater  than  advertised  in  technical  manuals.  At  24.8  knots,  1620  SHP  was 
delivered  on  the  port  shaft  when  1500  SHP  is  referenced  as  the  maximum.  This 
extra  power  may  contribute  to  the  relatively  loud  noise  levels  documented 
aboard  the  vessel . 

The  POINT  KNOLL  developed  a  maximum  of  640  SHP  per  shaft  (20  knots), 
as  seen  in  Figure  4.  This  is  under  the  rated  SHP  of  800  referenced  in  the 
ship's  technical  manuals.  A  plot  of  shaft  RPM  vs.  speed  of  the  PT.  KNOLL  is 
presented  in  Figure  5. 

5.2  Speed  and  Fuel  Consumption 

Fuel  consumption,  measured  by  in-line  fuel  flow  gauges,  is  presented 
in  various  ways  to  document  the  fuel  efficiency,  range,  and  endurance  of  the 
CAPE  HIGGON  (Figures  6  to  10.)  This  data  is  presented  in  tabular  form  in 
Appendix  B,  Table  B-I.  The  95'  WPB  has  a  clear  optimum  speed  of  11.5  knots  to 
maximize  cruising  range  as  seen  in  Figure  8.  Note  that  fuel  consumption  of 
the  diesel  generators  aboard  the  vessel  was  not  measured. 

Fuel  consumption  data  was  collected  aboard  the  POINT  KNOLL,  however, 
it  is  not  presented  in  this  report  because  it  is  incomplete  at  speeds  below  13 
knots  and  unexplainably  high  compared  to  the  CAPE  HIGGON  at  moderate  speeds. 
Since  fuel  consumption  for  a  diesel  engine  was  obtained  by  subtracting  the 
discharge  return  flow  to  the  fuel  tank  from  the  intake  flow,  resolution  of 
fuel  consumption  at  lower  speeds  is  difficult  to  obtain  accurately.  An  82* 
"POINT"  class  cutter  will  be  retested  with  a  much  more  accurate  meter  system 
and  results  will  be  presented  for  its  entire  operating  range  in  an  addendum  to 
this  report. 

5.3  Turning  and  Maneuverability 

The  tactical  data  obtained  at  8,  13,  and  18  knots,  such  as  tactical 
diameter,  advance  and  transfer  distances  for  the  82'  and  95'  WPB  are  very 
similar  as  seen  in  Tables  B-II  and  B-III  in  Appendix  B.  Graphic  definitions 
of  tactical  terms  are  presented  in  representative  tactical  data  plots  (Figures 
11  and  12)  for  the  POINT  KNOLL  and  CAPE  FAIRWEATHER,  respectively. 

Spiral  tests  were  conducted  on  both  vessels  at  approximately  7  and 
16  knots.  The  spiral  test  measures  steady  state  yaw  (turning)  rates  of  a 
vessel  as  a  function  of  rudder  angle.  A  plot  of  these  values  is  indicative  of 
the  course  keeping  stability  and  maximum  turning  rates  of  each  vessel.  The 
POINT  KNOLL  did  not  have  a  rudder  angle  indicator  so  the  rudder  angle 
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POINT  KNOLL  -  SPIRRL  TEST 

28  JULY  1983 


FIGURE  14  -  POINT  KNOLL  -  SPIRAL  PLOT  -  16.5  KNOTS 


RUDDER  RNGLE 


HIGGON  -  SPIRRL  TEST 

19  JflNURRY  1983 


RUDDER  RNGLE 


Yaw  Angle 


V  < 

■o 

s 

a 


£  «S 

8  %  l 

'  tt  2 

|  <  o- 

.  UL  O! 
2  Q.  « 

S  <  .2> 

O  N 


to|| 
»  R  « 


|i- wu 


gnoNV  aaaanH  ’mva 


Yaw  Angle 


TIME  (seconds) 

CAPE  FAIRWEATHER 
Zig-Zag  Plot  - 17.5  Knots 


DURATION  STANDARD 


DURRTION  TIME  VS  NOISE  LEVEL 

BY  COMPARTMENT  ABOARD  THE  CGC  CAPE  HIGGON 


(EP)  “GA3-!  QNROS  0NI1HDI3M  ,U 


27 


DURRTION  PER  DRY  (HOUR) 


DURRTION  TIME  VS  NOISE  LEVEL 
BY  COMPARTMENT  ABOARD  CGC  PT  KNOLL 
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PT  KNOLL  TOWING  CAPE  FAIRWEATHER 


FIGURE  23  -  POINT  KNOLL  TOWING  CAPE  FAIRWEATHER 
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FREQUENCY  HZ 


2  AUGUST  1983 

SIGNIFICANT  WAVE  HEIGHT  2.8  FEET 


FIGURE  25  -  FREQUENCY/DIRECTION  WAVE  ENERGY  SPECTRUM  FROM  ENDECO  956  BUOY 


Peak  value  (50)  corresponds 


l  m  i  ■  1  ■  ■■  ■  rn  y  ■  .■  »  ■  II  ■  ■■■  l  J  ■  V  if  i  yrn  JU  j  I  I  L  I  ■  i  i  IN  wmi  \miwmmv  I  »m  ■  ■■ 


The  Wave-Rider  buoy  deployed  for  the  CAPE  HIGGON  seakeeping  tests  in 
January  1983  failed  to  operate  properly,  so  the  visual  estimate  of  4‘ 
significant  swells  was  the  only  wave  height  information  available.  This 
failure  may  have  been  caused  by  the  below  freezing  temperature  exposure  to  the 
buoy  on  deck  before  deployment.  Wave-Rider  and  Endeco  956  buoys  both 
performed  well  during  the  side-by-side  seakeeping  evaluation  in  August.  The 
buoys  were  placed  at  the  center  of  the  test  area  in  Block  Island  Sound  so  that 
they  were  within  three  miles  of  the  vessels  at  all  times. 

6.2  Side-by-Side  Seakeeping:  CGC  CAPE  FAIRWEATHER  AND  CGC  POINT  KNOLL 

The  side-by-side  seakeeping  runs  of  the  CGC  CAPE  FAIRWEATHER  and 
POINT  KNOLL  were  conducted  in  3  foot  significant  seas  at  constant  speeds  in 
five  directions  relative  to  the  major  swell;  head,  bow  quarter,  beam,  stern 
quarter,  and  following  seas.  Ship  motion  data  was  collected  for  20-30  minute 
runs  on  each  leg.  Polar  plots  of  these  seakeeping  tests  are  presented  in 
Figures  27  to  29.  Tabular  data  is  included  in  Appendix  C  , Table  C-I. 

The  side-by-side  polar  plots.  Figures  27  and  28,  show  that  there  is 
not  a  significant  difference  of  roll  and  pitch  motions  between  the  95'  and  82' 
WPB's  in  three  foot  seas.  Roll,  pitch,  and  heave  Response  Amplitude  Operators 
(RAO's)  were  computed  for  the  runs  conducted  side-by-side  at  16  knots  in  3.0 
foot  significant  seas.  Heave  data  on  the  CAPE  FAIRWEATHER  was  not  collected 
due  to  equipment  failure.  Heave  data  is  available  and  presented  in  Figure  32 
for  the  CAPE  HIGGON  which  was  tested  at  19  knots  in  a  higher  sea  state,  4 
feet.  A  description  of  the  RAO  calculations  along  with  a  listing  of  the 
computer  program  is  presented  in  Appendix  D. 

6.3  CGC  CAPE  HIGGON  -  Seakeeping,  Susceptibility  to  Slamming  and 

Seasickness  in  4  foot  Head  Seas. 


Seakeeping  runs  similar  to  those  of  the  side-by-side  tests  were 
conducted  in  4  foot  seas  with  the  CAPE  HIGGON  in  January  1983.  Roll  pitch  and 
heave  polar  plots  are  presented  in  Figures  30-32.  The  tabular  motion  data  is 
presented  in  Appendix  C,  Table  C-I I . 

Three  vertical  statistical  shock  recorders  were  mounted  on  the  CAPE 
HIGGON  as  seen  in  Figure  2.  In  addition  to  these  sensors,  a  Bruel  &  Kjaer 
(B4K)  Human  Response  Vibration  Meter  Type  2516  was  used  on  the  bridge  to 
evaluate  the  ride  quality  in  accordance  with  the  ISO  vertical  axis  Motion 
Sickness  -  Severe  Discomfort  (MS-SD)  limit. 

While  proceeding  for  10  minutes  at  14  knots  into  4-foot  head  seas,  1 
slam  exceeded  1  g  at  the  bow  while  no  slams  exceeded  1  g  on  the  bridge  or  in 
the  engineroom  at  the  center  of  gravity  ( CG ) .  THE  B&K  meter  on  the  bridge 
registered  a  mean  weighted  vertical  acceleration  level  of  0.40  g's.  The  MS-SD 
limit  was  reached  in  2  minutes. 

While  proceeding  at  23  knots  again  into  4-foot  head  seas  for  10 
minutes,  5  slams  exceeded  1  g  at  the  bow.  Three  of  those  5  slams  exceeded  3 
g's  and  one  slam  exceeded  4  g's.  No  slams  exceeded  1  g  on  the  bridge  or  in 
the  engineroom.  The  B4K  meter  registered  a  mean  vibration  level  of  0.46  g's  on 
the  bridge  and  again  100%  of  the  MS-SD  limit  was  reached  in  2  minutes. 
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TABLE  B-I I 


USCGC  POINT  KNOLL 
TACTICAL  DATA 


Distances  in  Feet 


Deqrees  Rudder 

Advance 

Transfer 

Tactical 

Diameter 

Turning 

Radius 

SPEED 

8  KNOTS 

10O  Left 

523 

443 

981 

355 

10O  Right 

300 

274 

1181 

378 

200  Left 

-- 

— 

— 

20°  Right 

426 

400 

577 

1 55 

300  Left 

360 

267 

480 

209 

30°  Right 

342 

342 

507 

210 

SPEED 

13  KNOTS 

10O  Left 

795 

392 

905 

392 

10O  Right 

695 

435 

880 

285 

200  Left 

527 

330 

546 

187 

200  Right 

594 

347 

573 

152 

300  Left 

413 

503 

506 

139 

30°  Right 

“  “ 

" 

SPEED 

18  KNOTS 

10O  Left 

979 

773 

1304 

365 

10O  Right 

628 

491 

1144 

641 

200  Left 

362 

256 

565 

275 

200  Right 

444 

270 

609 

326 

300  Left 

150 

345 

424 

150 

300  Right 

149 

227 

478 

253 

TABLE  B-I 


CALM  WATER  PERFORMANCE  WITH  TWO  ENGINES 
USCGC  CAPE  HIGGON 


Shaft 

RPM 

Speed 

(Knots) 

Total  Fuel  Flow* 
Gal /Hr 

Cruising  Range* 
(NM) 

Endurance* 

(Hrs) 

Gal/nm* 

150** 

6.0 

12.0 

1500 

250.0 

2.0 

235 

9.4 

12.0 

2344 

250.0 

1.3 

327 

12.5 

12.5 

3000 

240.0 

1.0 

379 

13.7 

13.5 

3061 

222.2 

1.0 

425 

15.2 

22.5 

2027 

133.3 

1.5 

525 

17.9 

48.0 

1119 

62.5 

2.7 

620 

20.0 

115.0 

521 

26.1 

5.8 

700 

24.8 

147.0 

506 

20.4 

5.9 

Note:  DRAFTS;  FWD  4 '6",  AFT  6' 3",  DISPLACEMENT  105  LT 
Seas  2-3 ’  swells,  wind  8  kts. 

*  Usable  fuel  3000  gallons.  Does  not  include  fuel  consumption  of  one  30  kw 
generator.  One  generator  operating  would  consume  approximately  3  gal /hr 
diesel  fuel  oil. 

**  Low  clutch  engaged. 
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CALM  WATER  PERFORMANCE 
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STATISTICAL  SHOCK  RECORDER 
Intertia  Switch,  Inc,  NY,  NY 


SOUND  LEVEL  METER  TYPE  21 3H 
Bruel  and  Kjaer 
Marlborough,  MA 


LOAD  CELL 

MrorraoD 

Sensotec,  Inc. 
Columbus,  OH 


MIN I -RANGER  TRACKING  SYSTEM 
Motorola,  Inc. 

Tempe,  AZ 


torque.  A  transmitter  collar  and  antenna  are 
bolted  to  the  shaft  in  order  to  power  and 
transmit  FM  signals  from  the  strain 
gaugebridge.  Three  simultaneous  analog 
outputs  are  provided  at  the  readout  box 
{Torque,  HP  and  RPM).  Calibration  using  a 
shunt  resister  is  usually  conducted  because  a 
known  torque  load  is  difficult  to  apply  to  a 
vessel  in  the  water.  This  method  simulates  a 
torque  load  by  shunting  a  gauge  with  a  known 
value  of  resistance. 

SPECIFICATIONS 

Accuracy:  Torque  +  1%  of  full  scale 

RPM  +  0.25%  of  full  scale 

Horsepower  +  1.5%  of  full  scale 


This  mechanical  device  measures  shock  in  one 
axis  which  exceeds  lg  acceleration.  Each 
unit  has  four  separate  mechanical  measurement 
systems  which  register  a  shock  above  their 
calibrated  limits  (i.e.,  1,  2,  4,  6  g's) 

This  hand-held  sound  level  meter  measures 
levels  from  50  to  130  dB  with  A  or  C 
weighting  filters.  It  can  be  used  with  fast 
or  slow  response.  Calibration  is  done  by 
using  a  Sound  Level  Calibration  unit  Type 
4230.  The  sound  pressure  level  of  the 
calibrator  is  93.6  dB. 


This  load  cell  used  to  measure  towline  force. 
It  gives  a  digital  output  of  force  in  pounds 
as  well  as  an  analog  output.  A  built-in 
shunt  calibration  circuit  is  utilized  to  set 
up  the  digital  indicator  box. 

Range:  0-50,000  lbs 
Accuracy:  +  50  lbs 
Output:  0-7j  volts 

This  tracking  system  has  3  fixed  reference 
stations  and  up  to  13  mobile  reference  sta¬ 
tions.  One  mobile  station  was  placed  on  the 
test  vessel.  The  control  station  on  shore 
collects  the  ship  position  data  using  an 
HP9845  computer.  Accuracy  is  3-10  yards 
depending  upon  location  of  reference 
stations. 
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HUMAN-RESPONSE  VIBRATION  METER 


Type  Z5TZ  f 
kjaer  ( B4K) 


Significant  Wave  Height  (H  1/3)  and 

significant  period  as  well  as  a  plot  of  wave 
energy  vs.  frequency  and  direction.  This 
allows  for  a  determination  of  the  major  swell 
direction  and  quantification  of  the  extent  of 
a  undirectional  or  confused  sea  state. 
Directional  accuracy  is  +  10°.  It  can  be 

moored  with  an  accumulator  mooring  system  for 
long-term  monitoring  situations. 

Measures  vibration  from  a  tri-axial  accelero¬ 
meter  for  the  evaluation  of  vibration  on  the 
human  body  in  agreement  with  current  ISO 
standards  for  Hand-Arm  and  Whole-Body 
(including  motion  sickness)  measurement.  The 
complex  relationship  between  level,  frequency 
and  time  is  automatically  taken  into  account 
in  the  compututation  of  equivalent  continuous 
vibration  level  and  exposure  dose.  Outputs 
are  printed  on  thermal  paper  with  the  use  of 
a  Alphanumeric  Printer  type  Z31Z.  Outputs 
are  automatically  printed  at  preselected 
intervals  in  the  form  of:  Current  Time, 
Elapsed  Time,  Peak  Acceleration  (DB), 
Equivalent  Exposure  (DB)  and  Percent  of  a 
particular  ISO  standard  selected  which  has 
been  reached  at  that  elapsed  time. 


TRIAXIAL  SEAT  ACCELEROMETER  This  accelerometer  is  especially  designed  for 
Type  fa3ZZ  detecting  vibration  motion  in  connection  with 

(used  with  B&K  Meter  Type  251 2)  the  measurement  of  whole-body  vibration  and 

can  be  put  under  the  buttocks  of  a  seated 
person. 

Frequency  Range:  0.1  Hz  to  2  kHz  (+  5%) 

Charge  Sensitivity:  1  pC/ms"2  +  2% 

10  pC/g  “ 

Piezoelectric  Material :  PZ27 


FUEL  FLOW  METERS 


Racine,  WI 


Delta  Shear  Configuration 

In-line  flow  meters  are  direct  reading  units 
requiring  no  electrical  connections  or  read¬ 
out  devices.  Scales  are  based  on  a  specific 
gravity  of  0.84  for  fuel  oil.  Accuracy 
within  +  5%  of  full  scale. 


HORSEPOWER  METER  1202A  (2) 
ACUREk  AUfODATA, 

Mountain  View,  CA 


The  1202A  measurement  system  measures  shaft 
torque  and  RPM  and  calculates  horsepower  from 
that  information  (HP=Torque  x  RPM  x 
Constant).  The  shaft  is  strain  gauged  for 


A-2 


APPENDIX  A 


DESCRIPTION  OF  INSTRUMENTATION 
EQUIPMENT  DESCRIPTION 


This  unit  consists  of  a  vertical  gyro,  a  ver¬ 
tically  stabilized  three-axis  accelerometer 
assembly,  a  directional  gyroscope,  a  three- 
axis  rate  gyro  assembly  and  all  necessary 
power  supplies  and  power  switching  relays. 
Nine  outputs  are  available  at  +  1  or  +  5 
volts  full  scale  with  or  without  a  10  HZ  “low 
pass  filter.  Full-scale  outputs  can  be 
varied  as  the  table  below  indicates. 


Pitch  Angles 
Roll  Angles 
Yaw  Angles 
Pitch  and  Roll  Rate 
Yaw  Rate 

Surge  &  Sway  Acceleration 
Heave  Acceleration 


+  45°,  250  or  too 
+  450,  25°  or  ioo 
+  1750 

+  60,  30  or  10  deg/sec 
+30,  10  or  5  deg/sec 
+  1.0  or  0.5  G's 
+  2.0  or  0.5  G’s 


This  analog  tape  recorder  can  record  up  to  14 
channels  including  one  voice  channel  which 
records  on  channel  14  and  overruns  data  if 
recorded  on  that  channel.  It  has  variable 
speeds  from  15/16  IPS  up  to  60  IPS.  It  can 
attenuate  signals  from  0.1  to  20  volts  peak 
to  peak  normalizing  the  recorded  signal  to  1 
volt  peak  to  peak  output. 


WAVE  RIDER  BUOY  This  wave  height  buoy  transmits  a  continuous 

signal  which  is  received  and  converted  to 
analog  output  at  any  site  usually  on  board 
the  test  vessel.  The  output  signal  is  1  volt 
per  meter  of  wave  height.  The  buoy  is 
deployed  and  allowed  to  free  float  and  drift 
during  the  2-4  HR  seakeeping  trials.  It  can 
be  moored  with  an  accumulator  mooring  system 
for  long-term  monitoring  situations. 


ENDECO  956  WAVE  TRACK  BUOY  This  orbital  following  wave  buoy  measures 

wave  height  and  direction.  It  transmits 
three  digital  signals;  wave  height,  buoy  tilt 
(East-West),  and  buoy  tilt  (North-South)  to  a 
remote  receiver  usually  deployed  with  the 
test  vessel.  The  digital  signals  are 
recorded  and  analyzed  using  an  Otrona  8:16 
microcomputer.  The  data  can  be  analyzed 
using  either  a  "LONGUEST-HIGGONS"  or  "DIGITAL 
BAND  PASS  FILTERING"  method.  The  output  is 
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7.0  SUMMARY 


There  is  very  little  difference  in  roll  and  pitch  motions  between  the  95' 
and  82'  WPB  classes  in  3  foot  seas.  Heave  attenuates  significantly  on  both 
class  vessels  when  headings,  relative  to  the  waves,  changed  from  head  and  bow 
quarter  seas  to  slower  wave  encounter  frequencies  during  beam,  stern  quarter 
and  following  seas  steaming. 

The  CAPE  HIGGON  had  very  loud  noise  levels  at  moderate  and  high  speeds, 
which  are  a  potential  hazard  in  living  spaces.  This  is  not  the  case  on  the 
POINT  KNOLL,  which  had  relatively  quiet  noise  levels  in  living  spaces. 

The  95'  and  82'  WPB  Class  vessels  demonstrated  adequate  rudder  and 
maneuvering  control.  Tactical  data  for  both  vessels  tested  were  very  similar. 

The  RAO’s  calculated  are  useful  in  documenting  the  motion  response 
characteristics  of  the  vessels  tested.  They  are  misleading  at  very  low 
frequencies  of  encounter  (below  0.1  HZ)  and  thus  should  be  used  with  caution 
when  extrapolating  motion  data  from  them. 


HERVE  RMPLITUDE 

19.2  KNOTS 
SERS 


FIGURE  32  -  POLAR  PLOT  -  CAPE  HIGGON  HEAVE  AMPLITUDE  AT  19.2  KNOTS 


HIGGON  PITCH  RMPLITUDE 

SPEED  19.2  KNOTS 


PLOT  -  CAPE  HIGGON  PITCH  AMPLITUDE  AT  19.2  KNOTS 


PE  HIGGON  ROLL  AMPLITUDE 
SPEED  19.2  KNOTS 


KNOLL  HERVE  ACCELERATION  AMPLITUDE 

SPEED  16  KNOTS 


FIGURE  29  -  POLAR  PLOT  -  POINT  KNOLL  HEAVE  ACCELERATION  AMPLITUDE  AT  12  KNOTS 


:  PITCH  RMPLITUDE 

16  KNOTS 
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FIGURE  28  -  POLAR  PLOT  -  SIDE-BY-SIDE  PITCH  AMPLITUDE  AT  12  KNOTS 


TABLE  B-III 

USCGC  CAPE  FAIRWEATHER 
TACTICAL  DATA 


Distances  in  Feet 

Tactical 

Turning 

Degrees  Rudder 

Advance 

Transfer 

Diameter 

Radius 

SPEED  8  KNOTS 

TOO  Left 

950 

612 

955 

250 

10°  Right 

1550 

1180 

1916 

590 

20°Left 

284 

278 

594 

134 

200  Right 

266 

288 

700 

172 

300  Left 

86 

116 

327 

95 

30°  Right 

178 

183 

315 

112 

SPEED 

12  KNOTS 

10O  Left 

451 

529 

992 

344 

TOO  Right 

420 

567 

1024 

378 

200  Left 

186 

195 

467 

283 

200  Right 

323 

315 

616 

207 

300  Left 

223 

251 

436 

137 

30°  Right 

213 

249 

492 

142 

SPEED 

18  KNOTS 

TOO  Left 

545 

522 

992 

492 

10O  Right 

630 

706 

1184 

665 

200  Left 

233 

285 

570 

293 

20°  Right 

493 

472 

772 

301 

300  Left 

188 

161 

340 

143 

300  Right 

170 

185 

443 

215 

TABLE  B-IV 


RUDDER  ANGLE 


SPIRAL  DATA 
POINT  KNOLL 

SPEED 
6.5  KTS 
YAW  RATE 


Right  to  Left 

30R 

1.71 

20R 

.65 

15R 

.50 

10R 

.07 

5R 

-.32 

3R 

-.45 

1R 

-.55 

0 

-.64 

1L 

-.79 

3L 

-.77 

5L 

-.94 

10L 

-1.64 

15L 

-1.81 

20L 

-2.44 

30L 

-2.52 

Left  to  Right 

30L 

-2.52 

20L 

-2.44 

15L 

-1.68 

10L 

-1.66 

5L 

-1.15 

3L 

-.96 

1L 

-.88 

0 

-.80 

1R 

-.58 

3R 

-.43 

5R 

-.36 

10R 

+.03 

15R 

+.30 

20R 

+  .69 

30R 

+1.71 

B-4 


SPEED 
16.5  KTS 
YAW  RATE 


4.6 

2.9 

2.3 

1.3 
0.4 

-0.3 

-0.6 

-0.8 

-0.9 

-1.3 

-1.6 

-3.0 

-3.5 

-4.4 

-4.9 


-4.9 

-4.4 

-3.6 

-2.8 

-1.9 

-1.5 

-1.0 

-0.5 

-0.7 

-0.2 

0.3 

1.4 

2.5 

3.2 

4.6 


TABLE  B-V 


SPIRAL  DATA 
CAPE  HIGGON 


RUDDER  ANGLE 
DEG 


SPEED 
7.5  KTS 
YAW  RATE 
DEG/SEC 


SPEED 
16  KTS 
YAW  RATE 
DEG/SEC 


TIME  TO  SECOND  EXECUTE  (SEC) 

13 

16 

9 

PERIOD  (SEC) 

64 

48 

32 

AVERAGE  OVERSHOOT  (DEG) 


8.6 


6.2 


5.8 


TABLE  B-VII 


NOISE  LEVEL 
USCGC  POINT  KNOLL 
27  July  1983 


Operating  in  calm  water,  wind  speed  5  knots  at  various  ship  speeds  as 
indicated. 


Compartment 
or  Location 

A  WEIGHTING  (dB) 

C  WEIGHTING  (dB)  i 

200  SRPM 
5.5  Kts 

TWO  ENGINE: 
400  SRPM 
9.5  Kts 

750  SRPM 
20  Kts 

200  SRPM 
5.5  Kts 

TWO  ENGU 
400  SRPM 
9.5  Kts 

lES 

750  SRPM 
20  Kts 

Fwd  Berthing 

58 

63 

78 

64 

78 

89 

CO  Stateroom 

55 

61 

71 

76 

82 

85 

Bri dge 

64 

71 

77 

82 

94 

91 

Mess  Deck 

64 

71 

82 

82.5 

88.5 

90.5 

Back  Deck 

80 

84.5 

88.5 

94 

108 

112 

Engineroom 

93 

101 

111 

95 

102 

111.5 

TABLE  B— VI 1 1 


NOISE  LEVEL 
USCGC  CAPE  HIGGON 
21  January  1983 


Operating  in  3-foot  swells  with  10  knots  wind  speed  at  indicated  speed  and 
engine  configurations. 


C  Weighting  dB  Level* 

Compartment 
or  Location 

One  Engine  (Port) 
276  SRPM 

10.2  kts 

Two  Engines 
471/450  SRPM 
16.0  kts 

Two  Engines 
690/690  SRPM 
24.8  kts 

Fwd  Head 

87 

88 

93 

Fwd  Berthing 

90 

86 

93 

CO  Stateroom 

89 

90 

92 

Ships  Office 

86 

87 

92 

Bri dge 

(doors  closed) 

85.5 

88 

94 

Bridge  wing 

96.5 

96 

102 

Back  Deck 

90 

91 

103 

Engine  Room 

107.5 

112 

117 

Mess  Deck** 

94 

97 

102-108*** 

Aft  Crew  Berthing  90 

- 1 _ 

87.5 

102-108*** 

*  "A"  weighting  of  dB  levels  was  not  taken  due  to  meter  malfunction  of  that 
scale.  To  approximate  "A"  weighting,  subtract  2  dB  from  C  weighting  dB 
levels  above. 

**  Add  1  dB  when  TV  on. 

***  Vibrations  and  noise  increased  to  108  dB  during  vibration  resonance  due 
to  engine/shaft/hull  vibrations  about  once  every  2-3  seconds. 
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TABLE  B-IX 

WAVE  INFORMATION  DURING 
95782'  SIDE-BY-SIDE  SEAKEEPING  TESTS 
2  August  1983 

Endeco  956  ! 


Wave  Rider  Buoy 


H 


Time  1447 
Head  Seas 

Main  Wave  Direction  170OT 

Time  1509 

Stern  Qtr  Seas 

Main  Wave  Direction  200°T 

Time  1530 
Beam  Seas 

Main  Wave  Direction  160°T 

Time  1555 
Bow  Qtr  Seas 

Main  Wave  Direction  170°T 

Time  1620 

Following  Seas 

Main  Wave  Direction  14Q°T 


2.8  ft 


2.7  ft 


2.8  ft 


2.2  ft 


2.5  ft 


5.3  sec 


6.0  sec 


5.6  sec 


5.3  sec 


5.5  sec 


r  r 


APPENDIX  C 

SEAKEEPING  PERFORMANCE  DATA 


:<• 


TABLE  C-I 


2  AUGUST  1983 
SIDE-BY-SIDE  SEAKEEPING 
ONE  TENTH  AND  ONE  THIRD  HIGHEST  MOTIONS 

SPEED  16  KNOTS 

SIGNIFICANT  WAVE  HEIGHT  (H  1/3)  3.0  FT 


USCGC  POINT  KNOLL 


Heading  Roll  Angle  (Deg)  Pitch  Angle  (Deg)  Heave  Accel. (G's)  Significant* 
Relative  Amplitude  Amplitude  Amplitude  Wave  Height 

to  Waves  H  1/10  H  1/3  H  1/10  H  1/3  H  1/10 _ Hl/3  _ H  1/3 


Head 

Bow  Qtr. 
Beam 

Stern  Qtr. 
Following 

3.2 

4.0 

6.3 

8.6 

5.7 

2.5 

3.5 

5.3 

7.1 

4.5 

2.7 

1.8 

1.3 

1.9 

1.5 

2.2 

1.4 

1.0 

1.4 

1.1 

0.23 

0.16 

0.07 

0.11 

0.08 

0.18 

0.12 

0.05 

0.08 

0.07 

3.0 

2.9 

3.1 

2.9 

3.0 

Heading 
Relative 
to  Waves 

Roll  Angle  (Deg) 
Amplitude 

H  1/10  H  1/3 

USCGC  CAPE  FAIRWEATHER 

Pitch  Angle  (Deg)  Heave  Accel  (G's)** 
Ampl i tude  Amp! i tude 

H  1/10  H  1/3  H  1/10  H  1/3 

Significant* 
Wave  Height 

H  1/3 

Head 

3.1 

2.5 

2.4 

1.9 

'  3.0 

Bow  Qtr. 

3.1 

2.5 

1.8 

1.4 

2.9 

Beam 

5.2 

4.0 

1.1 

0.9 

3.1 

Stern  Qtr. 

6.9 

5.3 

2.0 

1.6 

2.9 

Following 

4.3 

3.3 

1.3 

1.0 

3.0 

Average  of  Wave  Rider  and  Endeco  956  buoys  for  each  leg.  Wave  height 
measured  peak  to  peak. 


**  Heave  Acceleration  data  not  available  due  to  equipment  failure. 
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TABLE  C-II 


21  JANUARY  1983 
SEAKEEPING 

ONE  TENTH  AND  ONE  THIRD  HIGHEST  MOTIONS 


SPEED  19.2  KNOTS 

ESTIMATED  SIGNIFICANT  WAVE  HEIGHT  (H  1/3)  4.0  FT 


USCGC  CAPE  HIGGON 

Heading  Roll  Angle  (Deg)  Pitch  Angle  (Deg)  Heave  Accel  (G's) 

Relative  Amplitude  Amplitude  Amplitude 


to  Waves 

H  1/10 

H  1/3 

H  1/10 

H  1/3 

H  1/10 

H  1/3 

Head 

5.9 

4.6 

2.9 

2.4 

0.38 

Bow  Qtr. 

4.7 

3.8 

3.2 

2.6 

0.34 

0.24 

Beam 

8.3 

6.5 

2.3 

1.6 

0.04 

0.03 

Stern  Qtr. 

6.0 

4.8 

2.6 

1.8 

0.07 

0.06 

Following 

6.0 

4.7 

2.3 

1.6 

0.02 

0.02 

APPENDIX  D 


CALCULATION  OF  RESPONSE  AW’LITUDE  OPERATORS  (RAOs) 

The  calculation  and  use  of  RAOs  assumes  certain  environmental  and  response 
characteristics  In  order  to  be  valid.  The  method  Is  only  valid  for  ship 
responses  In  an  Irregular  unidirectional  seaway  only  If  the  responses  are 
linearly  proportional  to  the  wave  excitation  (i.e.,  the  wave  amplitude.)  In 
general,  any  nonlinear  ship  responses  can  be  ignored  in  practice;  thus,  RAO 
technique  for  characterization  and  prediction  of  ship  response  are  valid  as 
long  as  a  unidirectional  sea  is  available  for  testing.  Ship  motions  in  a 
confused  sea  state  compared  to  the  motions  in  the  same  significant  wave  height 
of  a  unidirectional  sea  state  will  be  diminished.  The  Endeco  956  Wave  Track 
buoy  provides  enough  directional  information  to  accurately  identify  a  good 
unidirectional  sea  state  when  available.  This  was  the  case  during  the  WPB 
side-by-side  test  as  seen  in  the  3-D  plot  of  directional  wave  energy  (Figure 
26). 


Wave  height  is  measured  with  a  free  floating  wave  buoy,  while  ship  motions 
are  measured  by  a  ship  motion  package  aboard  the  vessel.  A  wave  spectrum  is 
obtained  using  a  Hewlett-Packard  (HP)  5420A  digital  signal  analyzer  controlled 
by  an  HP  9920S  computer  utilizing  the  WAVANL  program.  A  program  listing  is 
enclosed  in  the  last  section  of  this  appendix. 

Next,  the  wave  spectrum  is  transformed  into  a  spectrum  where  the  frequency 
of  encounter  is  considered  instead  of  the  absolute  wave  frequency.  This 
conversion  is  based  upon  the  vessel's  speed  and  direction  relative  to  the 
major  swell  direction  (i.e.,  there  would  be  no  change  for  a  vessel  proceeding 
in  beam  seas  at  any  speed.)  The  area  under  the  modified  spectrum  is  the  same 
as  that  under  the  original  spectrum,  since  the  total  energy  remains  the  same. 

Assuming  the  wave  energy  is  distributed  in  the  form  of  a  Rayleigh  distri¬ 
bution,  significant  wave  height  is  calculated  by  the  formula  H  1/3  =4 V power. 
This  was  done  as  seen  in  Figure  D-l  and  a  H  1/3  value  of  4.6  feet  was 
determined.  This  is  higher  than  the  wave  heights  calculated  by  computer 
averaging  the  highest  one-third  values  of  the  time  domain  wave  records  as  seen 
in  Table  B-IX  This  computer  averaging  method  is  more  accurate  than  the 
spectral  method  and  resulted  in  a  3.3  foot  significant  wave  height.  The 
spectral  method  was  higher  (4.6  feet)  because  it  assumes  the  wave  spectrum  was 
a  Rayleigh  distribution  and  the  actual  spectrum  was  not  corrected  to  fit  that 
distribution.  The  wave  spectrum,  however,  should  not  be  corrected  when  used 
in  RAO  calculations. 

The  ship  motion  record  (i.e.,  roll,  pitch,  or  heave)  is  also  converted  to 
a  spectrum.  It  is  already  at  a  frequency  of  encounter  relation  because  the 
motions  were  measured  aboard  the  vessel.  The  heave  SDectrum  in  units  of 
g2/HZ  must  be  modified  to  a  displacement  spectrum  (ft2/HZ)  before  further 
calculations  can  be  made.  This  is  performed  by  integrating  the  spectrum  twice 
to  obtain  a  displacement  spectrum.  If  a  roll  or  pitch  RAO  is  being 
calculated,  no  change  is  needed  because  they  are  already  in  angular 
displacement  units  (deg2/HZ). 
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The  RAO  or  transform  spectrum  is  then  calculated  by  dividing  the  motion 
amplitude  spectrum  by  the  wave  amplitude  encountered  spectrum.  This  RAO  is  a 
non-dimensional  representation  of  the  vessel's  response  to  wave  encounters. 
Our  analysis  stops  here,  and  RAOs,  as  well  as  the  spectral  plots,  are 
presented  in  Figures  D-l  to  D-12.  Ship  motions  of  the  vessel  in  any  other 
irregular  unidirectional  seaway  can  be  calculated  by  multiplying  the  ordinates 
of  the  transformed  wave  spectrum  by  the  ordinates  of  the  RAO  for  the 
corresponding  frequencies  of  encounters.  The  tabular  data  for  all  spectra 
shown  in  Figures  D-l  to  D-12  is  listed  in  Tables  D-I  to  D-XII. 

Finally,  the  area  under  the  motion  amplitude  spectrum  is  determined  in 
order  to  obtain  the  necessary  motion  characteristics  (i.e.,  average,  H  1/3, 
H  1/10  motion  amplitudes.)  This  assumes  a  Rayleigh  distribution  of  the 
motions. 

A  problem  arises  when  obtaining  RAOs  from  full-scale  ship  data  if  there  is 
little  or  no  wave  energy  at  a  given  frequency,  but  for  some  reason  there  is  a 
small  amount  of  motion  energy.  This  happened  on  several  plots  in  this 
investigation  at  the  low  frequency  range,  below  0.1  HZ  frequency  of  encounter 
for  roll  and  pitch  RAO's.  What  happens  is  that  a  small  value  of  motion 
amplitude  is  divided  by  a  very  small  wave  encounter  amplitude  value,  resulting 
in  a  large  erroneous  peak  value  on  the  RAO  plot.  These  low  frequency  peaks  as 
seen  in  Figures  D-6,  D-8,  and  D-12  seem  to  be  large  resonant  peaks;  however, 
they  are  not  significant  and  are  very  misleading. 

If  the  RAOs  are  to  be  used  to  predict  motions  in  a  realistic  seaway, 
little  harm  will  be  caused  since  the  wave  encounter  spectra  likely  to  be  used 
will  have  little  or  no  energy  in  that  very  low  frequency  range.  Thus  the 
resulting  motion  spectra  will  not  have  erroneous  peaks  at  low  frequencies.  It 
is  recommended,  however,  that  the  RAOs  be  used  with  caution  when  calculating 
ship  motions  and  information  below  0.1  HZ  should  be  ignored.  Under  no 
circumstances  should  these  RAOs  be  used  to  predict  motions  in  very  low 
frequencies  below  0.1  HZ  (encountered  frequency.) 
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2  AUGUST  1983 


FREQUENCY  (Hz) 

WAVE  POWER  SPECTRRL  DENSITY 


FIGURE  D-l.  WAVE  SPECTRUM  DURING  SIDE-BY-SIDE  TESTING 
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Tested  2  RUGUST  1983 


FREQUENCY  OF  ENCOUNTER  C Hz) 


WRVE  ENERGY  SPECTRUM 

FIGURE  0-2.  TRANSFORMED  WAVE  SPECTRUM 
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TABLE  D-IV 


POINT  KNOLL  HEAVE  RAO 

USCGC  PT  KNOLL  < HEAD  S EAS) 

HEAVE  Response  Amplitude  Operator 
Tested  2  August  1933 

Run  No.  1,  Speed  IS  ,  SEAS  Seas  about  4  feet 


FREQUENCY  OF  ENCOUNTER 
(HERTZ) 

. 015623 
.023433 
.031250 
.054638 
. 078125 
. 109375 
. 156250 
. 171875 
. 179688 
. 187500 
. 195313 
.210933 
.226563 
.234375 
. 242183 
.250000 
.257813 
.273438 
.296875 
.312500 
.328125 
. 335938 
. 359375 
. 367183 
. 390625 
.398438 
. 40625O 
.421875 
. 437500 
.453125 
. 460933 
.468750 
. 484375 
. 492133 
. 507313 
.515625 
. 523433 
.531250 
. 546375 
.617133 
. 625000 
. 703125 
. 731250 
. 359375 
. 937500 
1 .015625 
1 . 093750 
1 . 171375 
1 . 25000O 
1 . 323125 


AMPLITUDE 

RAO 

1.435219E+00 
7.260151E-05 
1 . 425045E-03 
1 . 76373 1 E-04 
6.021 933E-04 
1 . 937563E-03 
3 . 247653E-03 
7. 323262E-03 
5.487395E-03 
7. 688353E-03 
3. 696779E-03 
4. 319904E-03 
1 . 657279E-03 
2. 783973E-03 
4. 057267E-03 
2. 854767E-03 
3. 953469E-03 
3 . 020403E-03 
3. 43961  IE-03 
2. 378056E-03 
6 . 62003 1 E-03 
5.880697E-03 
1.242885E-02 
9 . 739944E-03 
1 . 344997E-02 
1 . 195153E-02 
1 . 469302E-02 
4.61 7369E-0 3 
6. 392307E-O3 
5. 363095E-03 
7. 543908E-03 
6.576043E-03 
4. 793464E-03 
5. 203912E-03 
2. 3636176-03 
3. 209282E-03 
2. 352046E-03 
2.371794E-03 
1 . 405306E-0  3 
2. 443836E-04 
4. 351 193E-04 
2. 5343626-05 
1 . 095222E-05 
5. 484931E-05 
3. S31421E-05 
2. 67375 9 E- 05 
2. 180420E-O5 
1 . 29354  IE-05 
4. 217325E-0S 
6.4191 35E-06 
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TABLE  D-III 


POINT  KNOLL  HEAVE  DISPLACEMENT  PSD 

USCGC  PT  KNOLL  ( HEAD  SEAS) 

HEAVE  Energy  Spectrum 
Tested  2  August  1983 

Run  No.  I,  Speed  18  ,  SEAS  Seas  about  4  feet 


FREQUENCY  OF  ENCOUNTER 

AMPLITUDE 

(HERTZ) 

(DEG  SQR-SEC) 

.023433 

1 . 034504E-04 

.078123 

1 . 054333E-05 

. 136250 

2.01 7503E-04 

.210938 

5.845034E-03 

.226563 

4. 125363E-03 

.234375 

6. 7301 19E-03 

.242183 

9.51 5743E-03 

.250000 

3.202395E-03 

.263625 

1 . 495 1 53E-02 

.273433 

1 . 477622E-02 

.289063 

1.672593E-02 

.312500 

1 . 056402E-02 

.328125 

2 . 500092E-02 

. 333938 

1 . 836244E-02 

.331363 

2 . 459306E-02 

.367133 

1.484337E-02 

.382813 

2 . 044763E-02 

.390625 

2.0311 73E-02 

.398438 

1 .272341E-02 

. 406250 

1.746663E-02 

.421873 

6 . 4444 1 5E-03 

.429688 

7.833433E-03 

.453123 

4 . 595069E-03 

. 460938 

3.78841  IE-03 

.468750 

4. 462486E-03 

.307813 

l . 342769E-03 

.346375 

9. 754100E-04 

.617188 

1 .096917E-04 

. 625000 

l .849294E-04 

.703125 

l .339013E-05 

. 781230 

8. 922303E-06 

.859373 

1 . 5656 1 3E-05 

.937500 

1.2S9267E-05 

1.015625 

9.  13340 9 E-06 

1.093730 

3 . 8807 1 4E-06 

1 . 171373 

2. 380350E-06 

1 .250000 

9. 645331E-07 

1.323125 

1 . 316320E-06 

1 . 406230 

3 . 777297E -07 

1.434373 

2. 407333E-07 

1 . 562300 

1 . 737433E-07 

1 . 640623 

1 . 733904E-O7 

1 .713730 

1 . 330254E-O7 

1 . 796373 

3. 13131 3E-03 

1 . 37300O 

7. 1 15200E-03 

1.953125 

3. 959869E-0S 
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TABLE  D-II 


TRANSFORMED  WAVE 


Wav*  Power  Spectral  Density 
Tested  2  AUGUST  1933 


Run  No.  1 
FREQUENCY 

(HERTZ) 
.013323 
.023433 
.078125 
. 132813 
. 140625 
. 156250 
. 164063 
. 171875 
. 193313 
.203125 
.226363 
.234373 
.250000 
.265625 
.281250 
.289063 
.296873 
.312300 
.320313 
.335938 
.343750 
. 331563 
.367183 
.390623 
.463750 
. 346373 
. 625000 
. 648433 
. 703125 
. 731230 
.359375 
. 937500 


SPECTRUM 


AMPLITUDE 
(FT  SQR-SEC) 
5.331 737E+00 
3. 1 67915E-02 
4.71 397 1 E-02 
3. 992920E+00 
5. 761474E+00 
1 . 4430 1 9E+0 1 
9 . 356936E+00 
1 . 071924E+01 
3. 1 62334E+00 
4. 456034E+O0 
1 . 382325E+00 
2. 232303E+00 
2. 536743E+00 
1 . 4741 82E+00 
2. 369751E+00 
2 . 3631 59E+0O 
3. 834594E+00 
1 . 625 1 22E+00 
l . 224610E+00 
1 . 637024E+00 
1 . 530457E+00 
1 . 76239OE+00 
3. 523440E-01 
9 . 262033E-0 1 
3.994262E-01 
2. 383394E-01 
l . 634723E-0 1 
3. S9484OE-02 
1 . 234665E-0 1 
3. 677223E-02 
6.491 089E-02 
1 . 330423E-02 
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TABLE  D-I 


SIDE-BY-SIDE  WAVE  PSD 


USCGC  CAPE  FAIRVZATHER  & 
USCGC  PT  KHOLL  < HEAD  SEAS) 

Uave  Energy  Spectrum 
Tested  2  AUGUST  1933 

Run  No.  1,  Speed  16  ,  SEAS  4  FEET 


FREQUENCY  OF  ENCOUNTER 

AMPLITUDE 

(HERTZ) 

(DEG  SQR-SEC) 

.016912 

4.377476E+00 

.026334 

2.340060E-02 

.110310 

2. 587243E-02 

.223827 

2. 496327E+00 

.244903 

2. 320235E  +  00 

.284990 

3. 457276E+00 

.303999 

3.61 0242E+00 

.327631 

3.8U063E+00 

.396469 

1 . 03358 1E+00 

.420696 

1.4181 14E+00 

.497239 

4. 669397E-0 1 

.324041 

6. 438348E-01 

. 331486 

7.0 32197E-01 

.637683 

3. 878009E-01 

.667703 

6.03731  IE-01 

.729676 

3. 337020E-0 1 

.761628 

9 . 232362E-0 1 

.327461 

3. 733091E-01 

.861344 

2 . 797096E-0 1 

1.193232 

1 . 8091 1 1E-0 1 

1.627413 

1 . 0033 1 9E-0 1 

2. 123944 

4.264301E-02 
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Yf$<f)  «($/$)* 


USCGC  CflPE  FRIRWERTHER  (HERD  SERS) 


Tested  2  Rugust  1983 


FREQUENCY  OF  ENCOUNTER  (Hz) 


PITCH  RESPONSE  RMPLITUDE  OPERRT OR 

FIGURE  D-10.  CAPE  FAIRWEATHER  PITCH  RAO 
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USCGC  CRPE  FRIRWERTHER  (HERD  SERS) 

Tested  2  Rugust  1983 


USCGC  PT  KNOLL  (BERN  SERS) 


Tested  2  August  1983 


ROLL  RESPONSE  AMPLITUDE  OPERATOR 


FIGURE  0-8.  POINT  KNOLL  ROLL  RAO 


USCGC  PT  KNOLL  C  BERM  SEAS) 


Tested  2  Rugust  1983 


ROLL  ENERGY  SPECTRUM 


USCGC  PT  KNOLL  (HERD  SERS) 

Tested  2  Rugust  1983 


Deg1  -sec 


USCGC  PT  KNOLL  (HERD  SERS) 

Tested  2  Rugust  1983 


FREQUENCY  OF  ENCOUNTER  CHz) 

PITCH  ENERGY  SPECTRUM 


FIGURE  D-5.  POINT  KNOLL  PITCH  PSD 


USCGC  PT  KNOLL  (HERD  SERS) 

Tested  2  Rugust  1983 


FREQUENCY  OF  ENCOUNTER  (Hz) 

HERVE  RESPONSE  AMPLITUDE  OPERRTOR 


FIGURE  0-4.  POINT  KNOLL  HEAVE  RAO 


TABLE  D-Y 


POINT  KNOLL  PITCH  PSD 


USCCC  PT  KNOLL  (HEAD  SEAS) 

PITCH  Energy  Spectrum 
Tested  2  August  1983 

Run  No.  1,  Speed  16  ,  SEAS  Seas  about  4  feet 


(HERTZ) 

(DEG  SQR-SEC ) 

.023433 

5 . 506592E-0 1 

.078123 

1 . 374333E-0 1 

.  156230 

1 . 604336E-0 1 

.210938 

4 . 066894E+00 

.226563 

3. 184326E+00 

.234375 

5.873047E+00 

.242138 

7 . 628906E+00 

.250000 

6 . 738326E+00 

.265625 

1 . 372607E+0 1 

.273438 

1 . 304443E+0 1 

.289063 

1 . 344873E+0 1 

.312300 

8. 989236E+00 

.328125 

1 . 909370E+0 1 

.335933 

1 . 397070E+0 1 

.351363 

1 . 568354E+0 1 

. 367188 

8.231 736E+00 

.382813 

9. 779734E+00 

.390623 

9 . 288376E+00 

.398438 

6. 138691E+00 

.406250 

3 . 538083E+00 

.421875 

2 . 756470E+00 

.437300 

3 . 322705E+00 

.433125 

2. 023634E+00 

.460933 

2. 454346E+00 

.468730 

1 . 926330E+00 

. 307813 

7.8311 16E-01 

.546875 

5. 829468E-01 

.  625000 

1.41 4947E-0 1 

.703125 

1.99346SE-02 

.781250 

3 . 92327 l E-03 

.859375 

3 . 879428E-03 

. 937500 

3. 086567E-03 

1 .013625 

3. 043132E-03 

1.093730 

1 . 057923E-03 

1 . 171875 

7. 369220E-04 

1 . 238080 

3. 295242E-04 

1 . 323 i 25 

2. 733932E-04 

1 . 406250 

1 . 233056E-04 

1 . 484373 

1 . 306236E-04 

1 . 562500 

3. 322370E-05 

1.648625 

1 . 040250E-84 

1 .713750 

1 . 276306E-0-* 

1 . 796873 

9. 977072E-85 

1.375000 

l  . 029037E-04 

1.933125 

9. 327384E-05 

TABLE  D-VI 


POINT  KNOLL  PITCH  RAO 

USCGC  PT  KNOLL  (HEAD  SEAS ) 

PITCH  Response  Amplitude  Operator 
Tested  2  August  1983 

Run  No.  1,  Speed  16  ,  SEAS  Seas  about  4  feet 


FREQUENCY  OF  ENCOUNTER 
(HERTZ) 

.813625 
.823438 
.831238 
.839863 
.846875 
.862388 
.878313 
.878123 
'  .833938 
. 181563 
. 189375 
. 123800 
. 132313 
. 140625 
. 156250 
. 164063 
. 187300 
. 193313 
.210938 
.226563 
.234373 
.242183 
.258000 
.237813 
.273438 
.296875 
.312300 
. 328125 
. 333938 
.339373 
. 367138 
.390625 
. 398433 
. 406230 
.421873 
.437308 
. 433123 
. 468933 
. 463758 
.434375 
. 300000 
. 307313 
. 315623 
. 323433 
.531230 
. 346373 
. 335933 
.625000 
. 703123 
. 731230 
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AMPLITUDE 

RAO 

1 . 640336E+81 
3. 864323E-81 
1 . 347483E+0 1 
1 . 204820E+0 1 
2. 0399 13E  +  8 1 
8 . 637983E+00 
1. 130644E+8 1 
7.847432E+00 
8. 083470E+00 
3.343719E+00 
4.642467E+00 
1 . 4492 1 6E+00 
1 . 366039E+00 
1 . 393958E+00 
2 . 382646E+00 
2.213397E+00 
4 . 03994 1  E+00 
2. 209781E+00 
3. 005730E+00 
1 .279080E+00 
2.429438E+00 
3 . 232767E+00 
2.345133E+00 
3.645694E+00 
2 . 666409E+00 
3. 176313E+00 
2 . 449028E+00 
5. 036419E+00 
4 . 3336 1 3E+00 
7.794363E+00 
5 . 43231 0E+08 
3. 437191E+00 
5. 784182E+00 
7.  1 82263E+00 
1 .9732O1E+00 
3.213271E+00 
2. 366406E+08 
3.  198691E  +  00 
2. 833694E+00 
2.334713E+00 
2 . 42837SE+00 
1 . 453376E  +  80 
1 . 612903E+00 
1 . 277393E+00 
1 .373342E+00 
3 . 3  9  3  7 1 2  E  ~  3 1 
3 . 296933E-0 1 
3 . 32922 1 E-0 1 
3. 331501E-02 
7.270464E-03 


TABLE  D-VII 


POINT  KNOLL  ROLL  PSD 


USCCC  PT  KNOLL  (BEAM  SEAS ) 

ROLL  Energy  Spectrum 
Tested  2  August  1933 

Run  No.  1,  Speed  16  ,  SEAS  Seas  about  4  feet 


FREQUENCY  OF  ENCOUNTER 
(HERTZ) 

.007813 
.011719 
.019531 
.027344 
.039063 
.054633 
.062500 
.074219 
.078125 
.085938 
.097656 
. 105469 
. 113281 
. 117183 
. 121094 
. 125000 
. 132813 
. 144531 
. 148433 
. 152344 
. 156250 
. 160156 
. 171875 
. 175731 
. 179683 
. 191406 
. 195313 
.203125 
.210933 
.222656 
.234375 
.242133 
. 250000 
.269531 
.273433 
. 312500 
. 351563 
. 390625 
. 429633 
. 463750 
.507313 
. 546375 
.535933 
.625000 
. 66406  3 


AMPLITUDE 
(DEG  SQR-SEC) 
1 . 068203E+02 
1 . 397266E+0 1 
2.3101 56E+0 1 
1 . 401416E+01 
1 . 072617E+02 
3. 518164E+01 
3 . 963086E+0 1 
1.41591 8E+0 l 
3 . 584375E+0 1 
1 . 1 6 1 7 1 3E+02 
1 . 532129E+01 
9. 195312E+01 
3.341 992E+0 1 
4 . 043633E+0 1 
6. 330469E+01 
4. 537695E+01 
8. 813672E+01 
2. 720801E+01 
3 . 3496 1 0E+0 1 
2 . 449023E+0 1 
4. 360938E+01 
2. 207617E+01 
5. 797656E+01 
5. 653125E+01 
7 . 37 1 375E+0 1 
2. 051 172E+01 
3 . 2 1 1 9 14E+0 1 
5 . 984375E+0 1 
2. 1 63086E+0 1 
5. 709570E+01 
1 . 613133E+01 
2 . 4 l 9336E+0 1 
9.21 5323E+83 
2 . 4940 1 3E+00 
3. 477783E+00 
7 . 980957E-0 1 
2. 773742E-01 
3. 1 1340 3 E- 01 
3 . 0  4  4  0  5  6  E  -  0  2 
2. 820 30  IE-02 
5. 341 143E-02 
4. 767799E-02 
4. 1341 50E-02 
5 . 363655E-02 
4. 553795E-02 
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TABLE  D-VIII 

POINT  KNOLL  ROLL  RAO 


USCGC  PT  KNOLL  '.BEAM  SEAS) 

ROLL  R»spons*  Amplitude  Operator 
T*st*d  2  August  1933 

Run  No.  1,  Spe*d  IS  ,  SEAS  S*as  about  4  f*«t 


FREQUENCY  OF  ENCOUNTER 

AMPLITUDE 

(HERTZ) 

RAO 

rii 

.011719 

1 . 672247E+03 

1 

. 013625 

1. 40963 1E+03 

.019331 

1 . 337432E+03 

v'. 

.027344 

3 . 588036E+02 

.039063 

7 . 330403E+03 

•/ 

. 054633 

7 . 65302 1 E+02 

. 053394 

1 . 29949 3E+03 

i 

.074219 

1.41 4483E+02 

.078125 

3. 831285E+02 

.085938 

5 . 46530 1 E+02 

,097656 

3 . 925624E+0 1 

. 101563 

2. 1 73406E+02 

. 117188 

2 . 738350E+0 1 

. 156230 

6.671049E+00 

i 

. 195313 

9 . 687420E+00 

.234375 

3. 713138E+00 

■  _ 

.273438 

2. 814383E+00 

.312300 

3. 438121E-01 

.331363 

2 . 039904E-0 1 

. 390623 

1 . 3381 14E-01 

■ 

.429688 

1 . 306830E-0 1 

i 

. 463730 

1 . 1 38299E-0 1 

•  * 

«** 

.307313 

1 . 339422E-0 1 

.346873 

3 . 4931 53E-0 1 

. 535933 

2.  1 99683E-0 1 

•m 

. 623000 

3 . 696240E-0 1 

.664063 

3. 1 02906E-0 1 

■ 

. 703125 

1 . 839936E-0 1 

. 742133 

1.679121E-01 

. 731230 

3.71 9267E-02 

. 320313 

1 . 037332E-0 1 

*  * 

.339373 

6. 767349E-02 

.398433 

2.339334E-02 

■ 

r a 

. 937300 

4.2191 00E-02 

. 976363 

1 . 374123E-01 

l 

y 

/ 

»*, 

d*. 
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TABLE  D-IX 


CAPE  FAIRWEATHER  PITCH  PSD 


USCGC  CAPE  FA  I RWEATHER  ( HEAD  SEAS) 

PITCH  Energy  Spectrum 
Tested  2  August  1933 

Run  No.  1,  Speed  13  ,  SEAS  Seas  about  4  feet 


FREQUENCY  OF  ENCOUNTER 
(HERTZ) 

.023433 
.073123 
. 153250 
.234373 
.237813 
.235325 
.273438 
.  .289033 
.304383 
.312500 
.328125 
.343750 
.351333 
.339375 
.390623 
.406230 
.414033 
.445313 
.453125 
. 468750 
. 507313 
.546873 
. 323000 
.703125 
.731250 
.359375 
. 937500 
1 .013625 
1.093750 
l . 171873 
1 . 250000 
1 . 323125 
1 . 406250 
1 . 484373 
1.562500 
1 . 340323 
1 .713730 
1 . 793875 
1.375000 
1.933125 


AMPLITUDE 
(DEG  SQR-SEC) 
5. 422363E-0 1 
1.  1 26404E-0 1 
9. 160232E-02 
3. 337402E+00 
8 . 475096E+00 
7 . 043096E+00 
9. 994144E+00 
8. 722168E+00 
1 . 735957E+0 1 
1.331 787E+0 l 
3 . 363720E+00 
1.091943E+01 
7.407715E+00 
9. 1 60643E+00 
3. 760986E+0O 
2. 875334E+00 
3 . 232686E+00 
2 . 0399 1 7E+O0 
2.574707E+00 
9 . 339293E-0 1 
3. 1 43446E-0 1 
1 . 90 1 932E-0 1 
2 . 9208 1 8E-02 
3.355467E-03 
3. 644703E-03 
3.31 7237E-03 
1 . 894633E-03 
1 . 38440 1 E-03 
6. 698370E-04 
7. 992089E-04 
6. 379270E-04 
4. 772097E-04 
4. 674942E-04 
7 . 52893 1 E-04 
3. 339677E-04 
3. 743433E-04 
2. 972434E-04 
3. 932714E-04 
3. 033032E-O4 
3.  1514 9 3 E-04 
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TABLE  D-X 

CAPE  FAIRWEATHER  PITCH  RAO 


USCGC  CAPE  FAIRWEATHER  < HEAD  SEAS) 


PITCH  Response  Amplitude  Operator 


Tested  2 

August 

1983 

1,  Speed  IE 

,  SEAS 

Seas 

about  4  feet 

CY  OF  ENCOUNTER 

AMPLITUDE 

(HERTZ) 

RAO 

.031250 

1 . 351635E+01 

. 039063 

7. 86 1333E+00 

.054688 

1 . 044136E+01 

.062508 

3. 1251 19E+00 

.070313 

1.009137E+01 

.078125 

6. 430582E+00 

. 101563 

5. 039529E+00 

. 109375 

5.  125665E+00 

. 132813 

1.  122625E  +  00 

. 148438 

1. 584508E+00 

. 156250 

1.474560E+00 

. 171875 

3. 550550E+00 

. 179688 

2. 433715E  +  00 

. 187500 

2. 614670E+00 

.210938 

1 . 342456E+00 

.234375 

2.414693E+03 

.242188 

2.843 360E+00 

.265625 

1 . 562793E+00 

.273438 

2.042900E+00 

.289063 

1 . 710473E+00 

.304688 

4.713314E+00 

.312500 

4.309412E+00 

.328125 

2.215189E+00 

.343750 

4. 138490E+00 

.351563 

3 . 435853E+00 

.359375 

5 . 020065E+00 

.390625 

3. 416257E+00 

.406250 

2. 419176E+00 

.414063 

2.477663E+30 

.421875 

2.044392E+00 

.429638 

2.088754Et-00 

.437500 

1 . 987334E+00 

.453125 

3. 007349E+00 

.468750 

1 . 376265E+00 

.507813 

5. 333434E-0 1 

. 546875 

2. 740173E-31 

. 625000 

6. 872376E-32 

. 679633 

1 .  157198E-02 

.703125 

6. 475475E-33 

.731250 

4. 473659E-03 

.859375 

1 . 162153E-02 

.937500 

5. 336533E-03 

1.315625 

5. 433467E-03 
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TABLE  D-XI 

CAPE  FAIRWEATHER  ROLL  PSD 

USCGC  CAPE  FAIRWEATHER  < BEAM  SEAS) 

ROLL  Energy  Spectrum 
Tested  2  August  1393 

Run  No.  SeAs  About  4  feet,  Speed  16  ,  SEAS  S ess  About  4  feet 


HERTZ) 

(DEC  SQR-SEC ) 

.019331 

1 . 322314E+01 

.023433 

3 . 033339E+00 

.039063 

1.  193U3E*01 

. 046873 

3 . 393264E+00 

.038394 

3. 310547E+81 

.066406 

1 . 263623E+01 

.074219 

3 . 503664E+0 1 

.078123 

1 . 68691 4E+01 

.082031 

9. 024904E+00 

.089844 

1 . 933371E+01 

. 101363 

1 . 267920E+01 

. 109373 

3. 053027E+0 1 

. 117188 

2. 489433E+01 

. 123000 

3.518164E+01 

. 132813 

1 . 531416E+01 

. 136719 

1 . 397338E+01 

. 148625 

1 . 333350E+0 1 

. 148438 

2.730859E+01 

. 156230 

1 . 230762E+0 1 

. 164063 

2. 272636E+0 1 

. 171873 

1.460791E+01 

. 183394 

3. 133136E+01 

. 193313 

1 . 680469E+0 1 

.207031 

1 . 433222E+01 

.218750 

3. 140234E+01 

.222636 

4.909370E+01 

.226363 

6 . 657422E+0 1 

.234373 

3 . 296873E+0 1 

.238281 

1.463994E+01 

.230008 

7.8311 72E+0 1 

.261719 

2 . 649902E+0 1 

.265625 

2. 712988E+01 

.273438 

1 . 347363E+0 1 

.277344 

2. 432339E+01 

.235136 

9 . 335443E*00 

. 292969 

1 . 913374E+01 

.300731 

3. 043437E+00 

.312500 

4. 332713E+00 

. 331363 

3. 1 07296E-0 1 

. 339373 

5. 762024E-01 

. 390623 

1.964133E-01 

. 429633 

2. 233799E-0 1 

. 463730 

1.077462E-01 

.307313 

1 . 943313E-81 

. 346873 

1 . 342010E-82 
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TABLE  D-XII 

3 

CAPE  FAIRWEATHER  ROLL 

RAO 

U3CGC 

CAPE  FAIRWEATHER  (BEAM  SEAS) 

ROLL  Response 

Amplitude  Operator 

Tested  2  August  1933 

Run  No.  Seas  about  4  feet,  Speed  16  ,  SEAS  Seas  about  4  feet 

FREQUENCY  OF  ENCOUNTER 

AMPLITUDE 

(HERTZ) 

RAO 

.015625 

1. 1341 66E+03 

.023433 

1 . 799643E+02 

.031250 

3. 861 227E+02 

.035156 

3. 641217E+02 

.039063 

8. 710075E+02 

.046375 

2. 937 133E+02 

.058594 

1 . 1 44229E+03 

. 066406 

1 . 392432E+02 

.074219 

3 . 582 1 1 1 E+02 

.073125 

1 . 303 1 1 7E+02 

.032031 

4. 1 34755E+0 1 

. 117188 

1 . 696074E+0 1 

. 156250 

1 . 83273 1 E+00 

. 195313 

5. 063444E+08 

.234375 

1 . 781 120E+01 

.273438 

1 . 090349E+0 1 

.312500 

3. 1 16931E+00 

.351563 

5 . 962380E-0 1 

.390625 

9. 703673E-02 

.429688 

3. 661502E-01 

.463750 

4 . 348732E-0 1 

.507313 

4 . 953833E -0 1 

.546875 

9. 332310E-02 

.585938 

1 . 974270E-0 1 

.625000 

1 . 442297E-0 1 

. 664Q63 

3 . 0908 l 9E-0 1 

. 703125 

1.71 999 1 E-0 1 

. 742133 

4 . 633045E-02 

.731250 

6. 1 40242E-02 

. 820313 

2 . 739386E-02 

.859375 

2.431 101E-02 

. 398433 

2.020627E-02  ! 

. 937500 

7 . 278029E-02 

. 976563 

0-26 

1 .6761 12E-01 
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WAVAN  2"  PROGRAM  LISTING 


This  program  calculates  and  plots  Ship  Response  Amplitude 
Operations  (RAO's).  It  Interfaces  with  and  controls  a 
Hewlitt  Packard  5420A  digital  signal  analyzer. 


WAVAN2  **  11  AUGUST  1984 

'  PROGRAM  FOR  WAVE  ANALYSIS 
'  AT  USER-ENTERED  TARE  SPEED 
!  ASSUMES  ANALYZER  FREQUENCES 
1  CORRESPONDING  TO  0-2  H;  REAL  TIME 
!  PROGRAM  OPERATES  SPECTRUM  ANALYZER 
!  ENTER  WAVE  DATA  FIRST 


£3 


S3 


90  OP  I  ION  BASE  1 

loo  COM  /Plot/  Wx  inn  ,  Wx  mx  ,  Wvmn  Wvmx  .  Vxmn ,  V>:m>: ,  Vynin  ,  Vymx  ,  Lxmn  ,  Lxmu  ,  Lymn  ,  Lymx  .  Sf  I 
q .  Gdus . xvratio 

1  lo  COM  y  _ io; 7 , 239 )  ,  x  _  1 2  , 239 )  ,X1,X2,Y1,Y2, Bw , Runt l me , Wc . Me . C31  o 
120  DIM  Mo 1 1  on* 1 20 ] 

130  PRINTER  IS  1 
140  GRAPHICS  OFF 
150  PRINT  CHR*il2> 

160  CALL  Initcar 

170  PRINT  "ENTER  1  TO  READ  NEW  DATA  THROUGH  THE  5420  ANALYZER:" 

130  PRINT  "ENTER  2  TO  PLOT  DATA  PREVIOUSLY  STORED  ON  DISK." 

190  Wv 10: Opt-O 

200  INPUT  "ENTER  1  OR  2", Opt 
10  IF  Upt  =  2  THEN  Wv90 
220  IF  Opt  1  THEN  WvlO 
230  3a=S04 

24>.«  Pltr-803 

250  INPUT  "ENTER  ANALYZER  SELECT  CODE:  804-DEFAULT ". 3s 
260  INPUT  "ENTER  PLOTTER  SELECT  CODE:  305-DEFAULT"  .PI tr 
270  ABORT  INT t Sa/ 100> 

2 So  CLEAR  IN  T (3a/ 100) 

290  CALL  Setup (Mot  i  on* , 8m .Runt l me . Wc ,Mc , Sa ) 

700  Wv90: Call  Getdata (Mot i an* , Sa ,P1 tr , Opt ) 

710  END 


7'o  Getdata:  SUB  Getdata 1  Mot l on* , Sa ,P1 tr . Cp 1 1 
730  RhO 

:.9a  option  base  i 

lQM  <  lo: 7,259) , x_(2 . 25°) , x 1 , X2 . Y 1 . Y2, Bw, Runt i me . Wc , Me ,Csi a 
4lo  DEG 

4.M  INTEGER  At  12. 2)  , Index .Flaq 

4  7'1  DIM  B  '.  4 , 2)  .Max  v  _<  0:  3)  ,P1  ot  _ti  1. 1  e*C60  1 .  Date*  COO]  .Fun  ft  20  1  ,  Seas* C  2o  ] 

44'. i  DIM  Cal  * C 20 ]  .Rec  ( 4 , 259 »  , Rec *C  160 J 

45'.i  Temp_=2 

4-i  i  i  1 . 239  >  -T  omo 


48"  FOR  [=>1  TO  0 

4«"  f  1  i  ,259)  *o 

I'X.'  NEXT  I 

5  1"  IP  '7pt  =  l  'HEN  Gdo3 

5  2'.'  ud"2  :  r  !  I  -*■="" 

-7"  OIP'JI  'FINER  FILE  NAME  ".File* 

T  4-  as  S  I  UK)  -3P  l  1  a  l  TO  9  i  i  e  F 

t-j  1 1  ">F  i  -a  1 :  Rec  r  .Met  i  an  f ,  •  ♦  • 


.  5  • .*  >  .  SoeAd  1  .  He  so  .  Wc  .  Me  .  2d  1  .  8/i .  Rc-c  t  -  ■  ,  Ms.: 


;  jM  OF i  tel  10  ♦ 


-•2.-.  v._  JL  JLi 


'm*  ■»'* 


».«  »»..M  *  -V-  «  « 


57o  Speea=3peed  1 »  1 .  eS9/ 32.  _ 

38o  Factor=COS (Head ) 

590  FOR  I  =  1  TO  A  <  3 . 1 )  /  2 
aoO  r  _ » o , I ) *Rec  i  2 . 1 > 

a  10  Y_< 1 , I ) =R«c (3, 1 ) 

620  Y _ 1 2 , 1 ) “Rec  1 l , 1 ) 

630  Y  _ ( 3 , I ) =Rec 1 4  ,  I ) 

640  *  Xi»B<2, 1 )  +  I*B  (3. 1 )  1  1-1 

650  X_(l.I)*Xl*(l-Xi*6. 2832*Speed*Factor  > 

ooO  X_t2,I)*B<2,2)+I*B<3,2)  1  1-1 

670  NEXT  I 

a80  SOTO  Opt 

690  Gd05: FOR  J  =  1  TO  2 

70 0  IF  J  =  2  THEN  GdlO 

710  OUTPUT  Sas VALS ‘.Wc ) V . ICA" 

720  PRINT  "PRESS  CONT  TO  INITIATE  WAVE  SPECTRUM  READ" 

730  GOTO  Gd20 

740  Sd  10:  OUTPUT  Sa:  VAL-KMc  >  V  .  1CA" 

750  WAIT  1400)/ 1000 

?6<J  OUTPUT  Sa;  "VW” 

77..)  PRINT  "PRESS  CONT  TO  INITIATE  MOTION  SPECTRUM  READ" 

73o  Gd2o; PAUSE 

790  PRINT  FNLini <  1  )  ; "PRESS  I  E<  TO  TO  END  SPECTRUM  READ  AT  ANY  TIME 

300  ON  KE/  O  GOTO  GdSO 

Slo  OUI PUT  Sa; "ST" 

320  Gd 45: GOTO  3d 45 
'377*  GdSO ;  OFF  x  E  i  O 
340  OUTPUT  Sa: "PA" 

S3'  >  Ww  I  T  (  2500 )  /  l  wo 

3eo  OUTPUT  Sa; "4ol ,SA" 

■3  7'. '  Get  at  At  i  itat=SPOLL  Sa  > 


380 

IF  3tat 

96  THEN  Get*itat 

d9o 

FOR  1=1 

ro  k> 

ENTER 

Sa: h ( 1 *4 i 

9  l 

ME  X  T  l 

F  OF  1  =  1 

ru  4 

9  ;o 

ENTER 

Sa : 8  k I , J ) 

54'.‘ 

me  x.  r  i 

9^«.l 

FOR  1=11  TO  12 

ENTER 

3d  5  H  *  I  .  J  > 

o  ?.  i 

ME  X  T  I 

3  3'  * 

FOP  1=1 

ra  .4-. j 

EN  TEP 

Sd;  r  \ J , £  > 

1 

NEU  1 

ioio 

NE  x  T  J 

I  • » Jf.> 

Gdso : Pec  T  =  " 

’ 

1  •  *  ZO 

INPUT  "RECORD  Data  ■  -  :r  ;i>  "  .F.s 

[  »4m 

if  Ria'rr 

THEM  od8<> 

l  * 

IF  PJ-  M  i 

1  HEN  <3d60 

1 '  ’&•  ’ 

8cl4s5 :  *.  -f  ” 

l*  •  ’• 1 

CNF-iJf  ,,LFEr^E  r  iEW  F I L£  •-  ?  zr  *P . ,\S 

:  1  cio 

rp  t- s'TI'* 

THLM  Gd  *■  * 

: .  ■  * 

IF  \S  -  r  ” 

1  HEN  ljda5 

l  1  -  o 

f 3d  -*■  :  F  i  i  e  S- 

•  i  l  * 

i !  IF  i  >  (  -  =  MrER  '  HE  M*sME  *.  ?I 

1  1 

IF  7  f  -  '  •  " 

'HEM  CHE.-t  TE  30*-*'  *-  i  L f  , 

0-28 


11.0  ASSIGN  <SFilel  TO  File* 

1140  Rec**'"' 

1150  INPUT  "ENTER  FILE  INFO  HEADING  C 160  CHAR  MAX  I 
1  1 60  Gd80: FOR  1*1  TO  0 
1170  Ma::v  _ <1 )  ='.) 

1180  NEXT  1 
1  1 90  FOR  1*1  TO  2 
1  200  8  ( 2 .  I )  *6  1 2 . 1  >  /  Bw 

1210  B  t  3 , 1 >  »B ( 3 . 1 ) / 6w 
1220  NEXT  I 

1230  INPUT  "Ship  speed  in  kts“.Speedl 
1240  Speed=Soeed 1  *  1 . o89 / 32 . 2 
1250  INPUT  "Heading  180=Head  Seas"  .Head 
1260  Factoi"*CQ3  (Head  > 

1270  FUqa'.' 

1280  FOR  1=1  TO  A<“,l>/2  '  0-2  Hr 

1290  Xi  *8  <  2 . 1 )  +■  I*B  (  0 , 1 )  '  t-1 

1  300  X  _ l.l)*Xi*il-Xi*6.  2832*Speed*Factor  ) 

1310  Temp _*Y_ ( 1 . I) *8w 

1320  Rec  i  2  ,  I  )  =  Temp  _ 

1330  t  _  i 0 . 1 1  “  Iemp_ 

1  340  V  _  v  1.1)  =  Temp  _/  1 1  - 12. 5664* Xi *Speed*Factor  > 
135"  Rec (3, I > =y_< 1 , I > 

1  3o<  >  IF  Xi  .05  THEN  Ne::tl 


1370  Ditf=Y_<l,I)-f_(l,I-l» 

1330  IF  (Dirt  o>  AND  vFlaq=0)  THEN  Ne.:ti 

1390  FI ad= 1 

1400  IF  Y  I  ,  I  )  Max  v_  1  1  >  THEN  Ma>:  V  .  ll )  *  Y  _  •.  1  ,  I ) 

1410  Me::  tl  :  NEXT  I 

142"  X2»x  .  tl.A'.  3,l>/2' 

14"o  Flag*" 

1 440  FOR  1  =  1  TO  A  "3 . 2  >  -  2  '  0-2  Hr 

1450  X  I  2 .  I )  *B  1 2 , 2 )  + 1  *B  3 . 2 )  '  1-1 

1 4oO  Temp  =Bw*r  t2,I> 

143"  IF  Motion.*-  "HEAVE"  THEN  r  (2.lJ=Teme, 

IJ°0  IF  Moti  on*="  HEAVE "  THEM  Y  <2  .  I )  =  Temp  _  ■  *.  2*P  I 

149  1  Rec  I  1  .  1 1  »Y  2.  I  > 

1500  IF  X  _  (  2  ,  I  )  .05  THEN  Ne::t 

1510  Dl  f  t  =  Y  .  ■  2.  I  i  -y  .( :  2.  I  -  l  • 

1 520  IF  -Dift  AND  1 F 1  ad  =  ' "  THEM  Ne.:t 

1330  Flag=l 

1  34u  IF  i  i  2  .  I  »  Ma::  /  >.  2  *  THEN  Ms..  •/  •  2  >  =  i  _  i  2  .  I  > 


l  *—  3*.' 

M8>:  t  S  MG  <  T 

1  Co*.’ 

I  i-«.» 

1  j/'.* 

F  1  aq  *•.» 

i  38».» 

FUR  *  t-a  l 

TO 

►4  •. : ,  2  •  ■  j 

•  0-2  Hz 

1  * 

Mi:  til  :  IF 

\  _  V 

L  .  1  1  **l  t  "  ,  I  ' 

THEM  Cent 

l  O'V.1 

:  t  =  1 1  > 

l 

lol*.1 

bC  TO  n 

1 1 

1 

i  a*.'.’ 

•went :  IF  l 

:  *• 

THEM  N:rt:2 

1  a  » 

Od*>  <  ( 

1 

, 11  * l ) - f  _  1,11* 

1  * •  y  _ 

1  34<l 

Dd  1  =*0d 

2 

X  .  ■  i  *  I  1  +  f  -  *  *  1 

. :  i  *  r  -  *  _  i , ;  f 

IF  Ud  l 

3*1  ) 

rHEfJ 

looo  feme  =Y_i2.l'-Ddl 

1 o  70  Rec i 4 , I > = ! emp  _ 

1  oS'J  t  _  *  3 ,  I )  = I  emp  _ 

1690  IF  11=253  THEN  Y_1G,I>»0 

1700  IF  X  _  i  2 .  I  >  ‘  .05  THEN  Nxti2 
1/10  DlF4=Y_(3,l>-Y_<3,I-l> 

1720  IF  iDlfFO)  AND  <Flag=0>  THEN  Nxti2 

1730  Flaq=l 

1/40  IF  Y_t3,I)  Ma>:y_(3)  THEN  Many _( 3)  =T _( 3 .  I ) 

1/50  NxtlisNEXT  I 
1760  FUa»J 

17  71.)  FOR  1  =  1  TO  A  (  3 , 2  >  7  2 

1  730  IF  X.  1 2, 1)'.  .05  THEN  Gd90 

1  ?9o  D=  Y  _  ( O .  I )  - 1 ..  10 , 1  - 1 ) 

1300  IF  (DO)  AND  Flaq=0  THEN  Gd90 

131)/  Flag=l 

1620  IF  f  _ •  O .  I  >  Many_'.0)  THEM  Ma::v_(0)*Y  io.I> 

1 3  3'.'  Gd9(.is  NEXT  I 

134'.'  IF  Rt=”r"  THEN  GUTFUT  *F  l  1  a  1 :  Rec  S  ,  Mot  i  on!  .  A  (  *  >  ,  EH  * )  ,  Speed  1  .  Heed  .  He  .  Me  .  Dd  1 
,  .  Rec  '.  * )  .Many  _>*• 

135"  IF  RJ="Y“  THEN  HS3IGN  'SFilel  TO  * 

1360  Opt:  PRINT  FNL inJ!3) : "ENTER  1  TO  PLOT  DATA;" 

137'.)  PRINT  "ENTER  2  FOR  TABULAR  PRINTOUT" 

1330  Opt  10:  Oot=o 

l8uO  Popt=0 

1900  INRUT  "ENTER  1  OR  2“ .Opt 

I  9 1 o  IF  Opt=l  THEN  ura 

1920  IF  Opt-  2  THEN  Opt  10 

1 J  30  PRINT  FNLina  (  l  >  :  "PRINT  OPTIONS:  H0'r  ION*  1  ,  WAVE  =  2  ,  PA0=3  .  F'HW  HAVE  SPECTRUM=4 


l  9  4"  Opt  2":  Popt='.i 

19=o  INPUT  "ENTER  PRINT  OPTION  CODE  l 1-4)", Foot 

196"  IF  Foot  1  OR  Pop t  4  THEM  0ot2o 

I°7"  Gr  d  :  Li-LL  Gr  l  d  '.  Pop t .  Mot  l  on f  ,  Ma:;  v_  i  * )  ,  Speed  1  , PI  tr  ,F1  ot  _t  1 1 1  el .  Date* ,  Run  X  .  Seas 
r  .  2  a  1  r  .  lode':  ' 

1  i?"  CmL1_  PI  otdata  1  ^  opt  ,  a  •  3 . 2)  /  2  ,  Inde'.  '  '  '.‘-2  Ho 

199"  I NPU  T  "Male  another  plot  or  printout  with  this  data  '.  y  or  N'".CF 

2v  )"  IF  '2  4  C  1  ,  1  I  =  "N"  THEN  Gr90 

2"1"  GOTO  Opt 

2'  '2'.'  FEN  o 

2'.' 21  GFinFHItES  OFF 

21. '22  Pc’  I N  T  CHFJ'  12' 

22'*'.'  SUBEND 
2'. '4') 


_"J"  ^Uc<  r  1  pt  da  Y  :• 1  F1  tp  t , '  (uiiT.pci  nr  s  .  I  "I  TEGEP  inde:. 

.1""  JF  '  I'.N  .-:-S£  1 

_  1  l  ■  •  2  ON  '  :  .  J  ,  1  •  2  .  -S'3  i  .  x  1  ,  2  .  •  1  .  ;  _  .  Evi  .Runt  i  ,  .*lc  .  ''1  . 

.  1  _■  IF  r-  •  c  •  -to  '9  .1"  : 


i.i  1  VIEWPORT  22.170,45,242 
i.)  '  CALL  L3C3t9aS.98.25, 1  15) 

:>  WINDOW  iXl)  ,  (X2>  ,  *Y1)  ,  iY2) 

0  MOVE  0,0 
j  PdO  J:  I nfl 1=2 

0  IF  Index = 1  THEN  Indl=l 
0  Di  +  1  =  Y _< I ndex  ,  I  ) 

U  1 1  - 1 

[.')  FOR  1=2  TO  Numpoints 
0  IF  Popt  THEN  Pd04 
0  Dl  f  =0i  -f  1 

i  Di 4 1=y  _< Index . I ) -Y_( Index , 1-1 ) 

}  IF  SGN ( Dl f ) =SGN ( Dl f 1 )  THEN  Pd05 

J  IF  <  AES  <  i  Y  _  <  Index  , I  — 1 >  — Y_  > Index , 1 1 )  )  /  Y2)  .  =  .05)  AMD  (  y  (I  nde.:  .1-1)".  =  .  1  *  Y 

THEN  PdOS 

I>  Fd04 :  PRINT  USING  For: X  ( tnd 1,1-1), Y_( Index , I - l ) 
j  IF  Popt  THEN  Pd  15 

:>  11  =  1-1 

j  GOTO  Pd  H.i 

.1  PdOS:  IF  U-1)  MOD  10=0  THEN  PRINT  USING  For ; X _< Ind 1 , I- 1 > , Y _< Index , I- 1 ) 

.i  Pdl'.i:  IF  X  _(  Ind  1  ,  I  /  =.05  THEN  DRAW  X  _  a  nd  1  ,  I )  ,  Y  _  a  nde.:  ,  I  / 

:■  Pd  1 5 :  NEXT  I 

■  For: IMAGE  1 4X . MDD . DDDDDD , 20 X , MD . DDDDDDE 

.)  IF  Poot»o  THEN  CALL  Power  (Numpoi nts  ,  X2 ,  Y2 .  Index  ) 

0  SIJBENO 


Grid:  SUB  Or  idiPopt, Motion*,  i (  * )  .  Speed  1  .F’l  tr  ,F1  ot  ti  1 1 9*  ,  Date  *  ,  Runf  .  Sessf 
T . INTEGER  inds : 1 
UP  I  ION  BASE  1 

CUM  <  u:  Z ,  259  >  ,  «  i  2 , 259  >  .  Xmi  n  ,  Ms.;  x  ,  Y  mi  n  .Max  /  ,  Bw .  Run  1 1  me .  Wc  ,  Me  .  Csi  ; 

IN  TEGEP  Bot 1 i n 
Bctli  n=Popt 
IF  Root  I  HEN  Gdlo 
G  IN  I  r 
-  l  :  ='l=o 


I  nf  u  r  1 

IF  PI 
IF  c  L  I 
I  F  P  1  I 
IF  c'  1  =  ' 
c  1 1  d  e  v  ■ 
IF  PI  I 
I  c  p  1  «. 
IF  F  1  •  ■ 
IF  -  I 

IF  &l  ' 
WINDOW 
REN  l 
FF-ME 


"FFESS  CONI  TO  PLOT  ON  CRT;  ENTER  1  TO  FLGT  ON  PLOTTER". PI 
I.'  AND  PI  1  THEN  PI 

I  HEN  PLOTTER  ISllNTiPItr  1 oO >  > *  1 oO*p 1 1 r  MOD  lo>'."HFGL" 

THEM  PLOTTER  [5  3o5."HPGL" 

"  THEN  PLOTTER  IS  2. "INTERNAL" 

•PI  tr  »P  l  MOT  PI' 

THEM  INPUT  "Put  oeper  on  plotter,  FiJ'SH  CI2N7  "  .  a 
THEN  VIEWPORT  20,120,20.37 

them  graphics  on 

THEN  VIEWFOPT  I'.i.aii.lG.So 

'HEN  C 31 0=2 
13.93.25. 1  15 


'  ,  70 , 24  .  I  l  3 


jS/'n  !  erTiQ  *0 
2o3».'  Amt n= Temp 
269'.)  rmin*remp_ 

27uO  Renter: PRINT  ‘PLOT  TYFE  CODES:  "sMotionl: "*1"; " 
W  WAVE  =  4  " 

27  Iv  INPUT  ‘ENTER  PLOT  TYPE  CODE  < 1 -4 > “ , Bot 1 1 n 
2720  IF  1 Botiirvl)  OR  (Botlin  4)  THEM  Renter 
2730  Gdlos  ON  Bot  I  in  GOTO  Mot i  on  ,  Wave , ftrao ,l*:awwave 
274»;»  • 

27SO  ' 

2  7  oO  !  **■**♦*♦*****♦♦♦**'*♦♦***♦♦♦♦****♦' 

27  7'.)  1 


WAVE* 2  ";Motjonl: "  CH03 


i 


2  780 

' 

2790 

Sire:  '  SUBROUTINE  TO 

determine  ordinate  SI 

23  vO 

1 

2  S  1 0 

1*1 

282*.' 

Check'  size:  IF  -.M a;:v  *1 

>  AND  lMd::v  THEN 

28  TO 

IF  M*.:y  1  Them  rocoia 

284' » 

i  *  r .  i  o 

2  3  So 

Ma,:  v  =Ma.:  v*  l  «.» 

‘ 

GOTO  Check  .size 

23  7'./ 

T  ooO  to:  I  *  I  *  l».» 

-  8S1.1 

Mar:  v  /  In 

23*?  •  > 

GOTO  Check  si :e 

.0*10 

(.'one:  Mat.  ✓  =  I  NT  'fid:;  /  »  *  l 

2°  l  ■ » 

I  F  rid:,  V  '  ma  I  nCQ'-  * 

THEN  Correc-.. 

2«2o 

Loop/sMav  ,  “M*.'  ,  f  t  •  l 

2*370 

IF  Ma  •  .  fffid.'  1  Inag  • 

then  l:od/ 

.  * 

C  o^r  ec  t  .  :  GOSiJB  Intstep 

2'Jt't  i 

RETURN 

,f  jt?D:  r 

:  -  i 

r’ier  .  : 

'.*il  1  3t*=»p 
;  :o  i :  ;  - ;  1  • • 

5 t  i-c>  =^r  •>£  ♦  i 

:  t1 


."j r  :ne 


’  -*E* t  v  l  nr.i.fl 


ri  3  r  ■  t  m 
.  ;  vo  _  : 

v  -»o=  Sr.  **o  ; 
Dir 

r-t:  j  fj  t 

’  -  ->  f  -  i  ■ 


It  V-  Jr  =  ■  g?J  JOO*. 

IF  ;  »I  :fec  :  ’HE*)  ,:r' 


’HEN  _>:c. 


-E'  .  > 


-fc  *  l 


H 

I 


0-32 


>tfaaa4MA« 


TTuBr 
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Ok : Stspuni t»Step 
Step*Step*I 
RETURN 


*•#**•*•*•*•*****■**•»•■****•#***■**■#****** 


Mot i on: L$«Moti oni 
Index»2 
GOTO  Setup 

Wave:L*»"WAV£" 

Index»l 

IF  Popt  THEN  Setup 
Maxy“Ymax ( 1 ) *1 . OS 
GOSUB  Size 
Maxx=INT (Maxx*l .  1 ) 

IF  Max X v 1  THEN  Maxx=l 
W I NDOW  0 .  ( Max  x  I  ,  O .  (Maxy) 

IF  Max x <  =*2  THEN  AXES  .l,Step 
IF  Maxx  >2  THEN  AXES  .3. Step 
GOTO  SetupSG 

Rrao:L$*Motion.*V  RAO" 

Index»3 
GOTO  Setup 

Rawwave:  L*="RAW  WAVE  SPECTRUM" 

Index^O 

Setup:  IF  Popt*0' THEN  Setup20 

PRINT  FNLinJS<3> ; “  FREQUENCY 

i  L*s  FNLi nl ( 1 ) 

SUBEXIT 

Setup 20: Maxy»Ymax ( Index ) *1 .03 
GOSUB  Size 
WINDOW  0. 1 .0. (Maxy) 

AXES  . 1 .Step 
CLIP  OFF 
Max  x  =*  I 

SetupSO: CALL  Label  __ticks  ( Maxx .Max y ,St spun 1 1 .Step , Csi z ) 

CALL  Label _axes 1L* ,P1 1 dev. Maxx , Maxy ,  Csi  z ) 

CALL  Title (Mot  i oni , PI ot _t i t I et , Dat ef , Maxx . Maxy , Bot 1 i n , Csi z ) 
CALL  Info (Speed  1 .Run* , Seas* , Cal t .Maxx , Max  y , Csi z . Index  / 

SUBEND 


*■♦ '♦*-♦*•*(•♦■***■*** -(MM*- **■***#  +  ♦*♦*■■»*  ^  ♦ 


SUB  Label  ticks (Maxx .Maxy , Uni t .Step ,Csiz ) 
DIM  XXC503 . YSCSul 
v«-Maxv*. 024 
C3 I ZE  Csi z . . 3 
LOPG  o 


LD I R  O 

Num  _t  l  c  k  s=  I  NT < Max  x * 1 0 ) 

IF  Num_ticks.^“20  THEN  LtlO 
CLIP  OFF 

FOR  J=0  TO  Num_ticks 
MOVE  J / 10/Maxx , V 
LABEL  USING  “K" ; J/IO 
NEXT  J 
GOTO  LtlS 

LtlO: FOR  J=0  TO  Num_ticks 
MOVE  J / 10/Maxx , Y 
IF  J  MOD  10=0  THEN  LABEL  USING 
NEXT  J 
LtlSlLORG  8 
X=-Maxx*.024 
Num_ticks=INT  (Maxv/Step ) 

IF  Umt=S  THEN  Steps 
Num_l abel  s=Num_ti cks  DIV  5 
3tep=3tep*5 
GOTO  Cont 

StepS: Num_l abel s=Num_ti cks  DIV  2 
Step=3tep*2 

Cant: IF  Step<*.00t  THEN  Lt20 
FOR  J=0  TO  Num_labels 
MOVE  X ,Step*J 
LABEL  USING  "K"sStep*J 
NEXT  J 
GOTO  LtOO 
Lt20: DEG 
LORG  4 

CSIZE  Csi 2 . . 33 
LDIR  90 

FOR  J=0  TO  Mum _1 abel  s 
MOVE  X  ,Step-*J 
LABEL  USING  “ D. DE" : St ep*J 
NEXT  J 
L  t  .JO  •  SUBEND 


SUB  Label  .axes  ( Ai ,  PI  tr  .Max;:  .Max  v.Csi 
OPTION  BASE  l 
DIM  LTC401 
DEG 

LDIR  0 
CSIZE  Csi : 

LORG  D 

MOVE  Maxx /2 . -Max v*. Oa 
IF  Af="RAW  WAVE  SPECTRUM"  THEM 
LABEL  USING  "k ” ; "FREQUENCY  IH:;" 


4230  LABEL  US I NS  "K" ; "FREQUENCY  OF  ENCOUNTER  (Hz)“ 

4240  END  IF 

4250  MOVE  -Max::*.  lS.Maxy/2.5 
4260  CSIZE  Csiz  , . S 
4270  LDIR  90 

4280  IF  A*<>"RAW  WAVE  SPECTRUM"  THEN  Notraw 
4290  CALL  Splab  (  "Ff&CHR*  ( 169)  V-sec"  ) 

4300  L*-"WAVE  POWER  SPECTRAL  DENSITY" 

4310  GOTO  XI ab 

4320  Notraw:  IF  A#<  >"ROLL"  THEN  Notroll 
4330  CALL  Spl ab ( "Deg’^CHR* < 169) V -sec " ) 

4340  LS**"ROLL  ENERGY  SPECTRUM" 

4350  SOTO  XI ab 

4360  Notroll:  IF  A*t>“WAVE"  THEN  Notwave 
43S0  CALL  Splab  (  "Dea"&CHR*  <  169  >  &"-S9C‘' ) 

4390  L**" WAVE  ENERGY  SPECTRUM" 

4400  GOTO  XI  ab 

4410  Notwave:  IF  A*O"R0LL  RAO"  THEN  Notrao 

4510  CALL  Splab  <  "  Y  "  S-CHR*  ( 168)  &CHR*  (170)  ?<"  (4)  * ( "S.CHR* ( 163) .V /"S<CHR*  ( 1 70)  S<"  >  “S<C 
HR* ( 169) > 

4520  L*»"ROLL  RESPONSE  AMPLITUDE  OPERATOR" 

4530  GOTO  XI ab 

4540  Notrao:  IF  A*<  .-"PITCH"  THEN  Notpitch 
4550  CALL  Spl  ab  < " Deo " !<CHR*  ( 169 )  V  -sec"  ) 

4600  L*="PITCH  ENERGY  SPECTRUM" 

4610  GOTO  XI ab 

4620  NotpitchsIF  A*<  > "PITCH  RAO"  THEN  Notprao 
4630  CALL  Splab  ("Y"S<CHR*(  171)  -t<CHR*  ( 170)  4“  (♦)  =  (") 

4640  CSIZE  Csi :+l , . 5 

4650  CALL  Splab <CHR*( 171)) 

4660  CSIZE  Cal z  , .  5 

46  70  CALL  Splab  ( ’*/  "5<CHR*<  170)  S<“  )  "*<CHR*  <  169)  ) 

4720  L*«"P1TCH  RESPONSE  AMPLITUDE  OPERATOR" 

4730  GOTO  XI ab 

4740  Notprao:  IF  A*<"  >" HEAVE"  THEN  Nothev 
4750  CALL  Spl  ab  (  "Ft " *<CHR*  <  169 )  ?<"-sec  "  ) 

4800  L*» "HEAVE  ENERGY  SPECTRUM" 

4810  GOTO  X 1 ab 

4820  Nothev :  CALL  Spl  ab  <  "  Y"S,CHR*  ( 172)  *(CHR*  ( 170)  V  (#  )  =  ( Z/"?!CHR*  <  170)  «<"  )  "SiCHRS  ( 16 
9)  / 

4890  L*="HEAVE  RESPONSE  AMPLITUDE  OPERATOR" 

490o  X 1  ab :  MOVE  Ma::x /  2 .  -Ma;: y*.  1 

4910  LORG  6 

4920  LDIR  0 

4930  CSIZE  Csiz+l,.6 

4940  LABEL  USING  “K":L* 

4950  SUBEND 
49o0  ! 

4«7o  ' 

4980  1  ♦♦♦*****♦*■*•■*■*■*•**■*♦*■*■*■#■■*****♦**♦* 

499i.»  • 

5'X»0  ! 

5010  Title:  SUB  Ti  1 1  e  <  Mot  1  on# ,  PI  ot  _t  1 1 1  ,  Date*  ,  ,  Ma:;  y  ,  1NTE6EP  Code, REAL  Csiz) 


5020  PRINTER  IS  1 

5030  PRINT  FNLin*(5> 

5040  LDIR  0 

5050  CSIZE  Csid+1,.6 

5060  LORG  4 

5070  MOVE  Maxx/2,Maxy*I. I 

5080  INPUT  "ENTER  PLOT  TITLE  C60  CHAR  MAX I “ , PI ot_t i t 1 e* 

5090  LABEL  USING  "K ” ; PI Ot _t i 1 1  St 

5100  PRINT  TAB<20)  ,Piot_tltle*;FNHn*U) 

5110  MOVE  Maxx/2,Maxy*1.04 
5120  CSIZE  Csi 2,. 6 

5130  INPUT  "DATE" .Date# 

5140  LABEL  USING  "KM  s  "Tested  "ScDate* 

5150  CLIP  ON 

5160  ON  Code  GOTO  C1.C2.C3.C4 

5170  C1:PRINT  TAB  (20)  ,Moti  on*?<"  Energy  Spectrum" 

5180  SOTO  Cend 

5190  C2:PRINT  TAB (20) , "Wave  Energy  Spectrum" 

5200  GOTO  Cend 

5210  C3:PRINT  TAB ( 1 3) , Mot l on*V  Response  Amplitude  Operator" 
5220  GOTO  Cend 

5230  C4:PRINT  TAB ( 17) , "Wave  Power  Spectral  Density” 

5240  Cend :  FRINT  TAB  (23)  .  “Tested  "S<Data* 

5250  SUBEND 
5260  ! 

5270  ' 

5280  !  ***+*•*■#*******■«■+*********•**■»'«■*** 

5290  ! 

5300  ' 

5310  SUB  In-f o (S. Run#, Seass, Cal#, Maxx .Maxy.Csis . INTEGER  Index) 

5320  LDIR  O 

5330  CSIZE  Csi r , . 5 

5340  LORG  2 

5350  MUVE  .  a*Ma>:':  ,  .  95*Ma;:y 

5360  INPUT  "Run  no.". Run* 

5370  LABEL  USING  Run! Run* 

5330  Runs  IMAGE  "Run  No.  ",3A 

5390  PRINT  FNLl n* ( 1 ) s "  Run  No.  "sRun*s 

5400  IF  lndex*0  THEN  Nosea 

5410  INPUT  "SEAS" .Seas* 

5420  LABEL  USING  "20A":Seas* 

5430  PRINT  ",  Speed  ";S:",  SEAS  Seas*: FNLl n* ( 1 ) 

5440  Nosea:  PRINT  "  FREQUENCY  OF  ENCOUNTER 

5450  LABEL  USING  Speed :S 

54pO  Speed: IMAGE  "Speed  ”,00-0."  kts" 

54  70  INPUT  "CAL I  BRAT  I ON", Cal* 

5480  IF  Cal *w"0"  THEN  SUBEXIT 

5490  Label  USING  CalsCal* 

5500  Cal : IMAGE  "Calibration  ",7A 

5510  SUBEMO 
552i.i  • 

5530  ’ 

5540  1  »*♦♦*****♦*++«*#***♦,.**.,*♦*♦* 
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PowertSUB  Power <Numpoints,Maxx ,Maxy , INTEGER  Index) 

OPTION  BASE  1 

COM  Y_(Os 3 , 239) ,X_<2,259)  , X 1 , X2, Y1 , Y2 , Bw , Runt i me , Wc , Me , Csi z 

IF  < Index =2)  OR  <Index=3>  THEN  SUBEXIT 

Indl=l 

IF  lndex=0  THEN  Indl=2 
Sum=0 

FOR  1=1  TO  Numpoints 

IF  X_( Ind 1 , I ) < . 03  THEN  Next! 

Sum=Sum+Y_< Index ,I)*<X_<Indl,I+l)-X_(Indl,I> > 

Next! :NEXT  I 
CSIZE  CsiZ , .5 
LORG  2 
LOIR  O 

MOVE  Maxx/2.Maxy*. 7 

CALL  Spl ab  <  "Power  <f  t )  "SiCHR*  ( 169)  fc”=  "  ) 

LABEL  USING  “ODD. DDD" J Sum 
IF  Index=l  THEN  SUBEXIT 
MOVE  Maxx/2, .S5*Maxy 

LABEL  USING  "K" j “Significant  Wave  Height" 

MOVE  .  35-*Max  x  , . 50*Max  y 

CALL  SplabCMH  1/3)  =  4“S<CHR*  ( 173)  VPower "  ) 

MOVE  . S3*Max  x , . 43*Max  y 

LABEL  USING  "K , 20. 20 . K" : ” <H  1/3) »" ,4*S0R (Sum) , “  ft" 

SUBEXIT 


SUBEND 

Setup:  SUB  Setup  (Motion* , Bw , Runti me , Wc  ,MC  , S«i ) 

OPTION  BASE  1 
DIM  S*C 1001 .Wdth (7) 

Wdth ( 1 ) =. 9373 
Wdth (2) =1 . 873 
Wdth (3) =3. 73 
Wdth  <4)  =  7.5 
Wdth (3) =15 
Wdth < 6) =30 
Wdth (7) =60 

INPUT  "TURN  5420  SYSTEM  ON  -  PRESS  CONT”,X 
PRINT  FNLin* <1)8 "TAPE  SPEED  OPTION  CODES:" 

PRINT  "  1)  13/16  ips" 

PRINT  "  2)  1  7/8  ips" 

PRINT  "  3)  3  3/4  ips” 

PRINT  "  4)  7  1/2  ips" 

PRINT  "  3)  15  ips" 

PRINT  "  6)  10  ips" 

PRINT  "  7)  60  ips" 

Setlo:0ts=0 

PRINT  FNLin* i 1 ) j "ENTER  ORIGINAL  RECORDING  I  APE  SPEED  CODE 
INPUI  "ENTER  RECORD  SPEED  CODE  <l-7)".UtS 


II 


6060  IF  (OtS< i)  OR  l0ts>7)  THEN  SetlO 
6070  Setl5:Pts**0 

6080  PRINT  FNLin*( 1 ) s “ENTER  PLAYBACK  TAPE  SPEED  CODE  <l-7>" 

6090  INPUT  "ENTER  PLAYBACK  SPEED  CODE  <l-7)",Pts 
6100  IF  (PtSKl)  OR  (Pts>7>  THEN  SetlS 
6110  Bw*Wdth (Pt»> /Wdtn <Ots> 

6120  ! 

6130  Set20lWc=O 

6140  INPUT  “ENTER  WAVE  SPECTRUM  CALIBRATION  FACTOR", Wc 
6150  IF  Wc<.*0  THEN  Set 20 
6160  ! 

6170  Set25s  Motion*"*"  “ 

6180  INPUT  "ENTER  TYPE  OF  MOTION  (ROLL.  PITCH  OR  HEAVE) ” ,Moti on* 

6190  IF  Mot X on*< > “ROLL"  AND  Motl on*-;  /"PITCH"  AND  Moti on*< >"HEAVE”  THEN  Set 
6200  ! 

6210  Set30:Mc=0 

6220  INPUT  "ENTER  MOTION  SPECTRUM  CALIBRATION  FACTOR", Me 
6230  IF  Mc< *0  THEN  Set 30 
6240  ' 

6230  Set 40s 1  X*=“" 

6260  1  INPUT  "RUN  WITH  REAL-TIME  CLOCK  (Y  or  N>?",X* 

6270  '  IF  X*=“N"  THEN  Set60 
6280  !  IF  X*<  > " Y "  THEN  Set 40 
6290  ! 

6300  SetSO: Runtime=0 

6310  !  INPUT  “ENTER  MAXIMUM  RUNTIME  (MINU TES) “ . Runt i me 
6320  !  IF  Runtime-:  *0  THEN  SetSO 
6330  ! 

6340  Set60:  ! 

6350  PRINT  “PRESS  CQNT  TO  INITIATE  ANALYZER  SELF-TEST" 

6360  PAUSE 

6370  S*— "  1CH  IRS  1AC  2SS  ITS  lOOO.lAV  OCF  ".V/AL*  i'Bw> -VBW  “ 

6380  Set80 : X=POS ( S* , “  ” ) 

6390  OUTPUT  Sa; S*C 1  ,  X  3 

6400  IF  X*=LEN  ( 3*>  THEN  Set90 

6410  S*=S*CX+U 

6420  WAIT  (4001/1000 

6430  SOTO  SetSO 

6440  Set 90s  SUBEND 

o4SO  ! 

LIBRARY  SUB  S  ADDED  BY  THE  TRANSLATOR 

6460  DEF  FNLin*( INTEGER  X)  !  LIN  function  of  FRINT 
6470  INTEGER  l 

6430  IF  X-0  THEN  RETURN  CHR*(13> 

6490  ALLOCATE  R*CABS < X > +1 3 

6500  R*=CHR* (13) 

6510  IF  X<0  THEN  fi*=“" 

6520  FOR  1=1  TO  ABS(X) 

6530  R*=R*3<CHR*  C  lo ) 

6340  NEXT  I 

6550  RETURN  R* 

6560  FNEMD 
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•  **************************************************************************** 
New_udc:  SUB  New_udc (Char*, Array (*> > 

!  This  allows  up  to  twenty  new  characters  to  be  defined,  each  having  up 
!  to  thirty  elements  (rows  in  the  array)  -for  definition. 

OPTION  BASE  1 

COM  /Udc/  01d_chars*C203 , Size (20) , Chars (20,30,3) 

IF  LEN(01d_chars*>-20  THEN 

PRINT  "User-defined  Character  table  full." 

ELSE  •  (still  room) 

Pos=LEN (01 d_chars*>  +1 
01d_chars*CPos3=Char* 

Site (Pos) “SIZE (Array , 1) 

FOR  Row*l  TO  Sire (Pos) 

FOR  Column*l  TCJ  3 

Chars (Pos , Row, Col umn ) *Ar ray (Row, Column) 

NEXT  Column 
NEXT  Row 

END  IF  !  (room  left?) 

SUBEND 

*  *■*********•»**•***■»■**•****•***********+**■»*****■**#*******-**********••■«■***** 
So  labs  SUB  SplaO ( Text*) 

!  This  prints  a  character  string  at  the  current  pen  position  and  using 
!  the  current  LORG,  LOIR  and  CSIZE.  The  LQRG  will  need  to  be  redeclared 
'  upon  returning  to  the  calling  context,  as  this  routine  needs  LORG  1  if 
!  the  text  is  longer  than  one  character. 

OPTION  BASE  1 

COM  /Udc/  Qld_chars*C203 ,Size(20> .Chars (20,30,3) 

REAL  Ar r  ay  (,3 1,3) 

FOR  Char=l  TO  LEN (Text*) 

IF  Char=2  THEN  LORG  1  !  Necessary  when  doing  one  character  at  a  time 

Char*=Text*CChar ; 1 1 

Pos=POS (01d_chars* , Char*)  !  Is  this  to  be  replaced  by  a  UDC" 

IF  Pos  THEN 

REDIM  Array (Si te (Pos) ,3) 

FOR  Row* l  TO  Site(Pos)  !  \  Take  a  slice  out 

FOR  Column* l  TO  3  '  >  of  the  3D  arrav 

Array (Row, Col umn ) =Chars ( Pos, Row , Coi umn)  '  /  and  put  it  in  the 

NEXT  Column  !  /  2D  array  for 

NEXT  Row  '/  SYMBOL. 

WHERE  X.Y 

symbol  Amy  i*i 

MOVE  X,Y 

LABEL  USING  "#,K"s"  "  !  Tell  the  computer  to  update  the  pen  position 

ELSE  !  (regular  character* 

LABEL  USING  “ # ,K “ s Char* 

END  IF  !  (this  character  been  redefined?) 

NEXT  Char 
SUBEND 


tnitcar:  SlJB  Imtcar 

OPTION  BASE  1 


I 


7073  D IM  Sv 1 \ 1 1 • 3> , Sv2 <6.3) « Sy3 <13,3)  ,Sy 4(12,3)  ,  Sy5 (6,3) , Sv6 (3,3) 

7074  COM  /Udc/  l31d_char»*C203 ,Si3«<20> .Chars <20 ,30 , 3) 

7080  READ  Sy  l  <*)  .  5y2  < * >  , Sy3  < •* )  , Sy4  < *>  ,  Sy3  <  #>  ,  Sy6  < * ) 

7040  DATA  0,7,-l,  l, 9,-1,  3, 9,-1,  4, 7,-1.  4. 4,-1,  3, 2,-1,  1,2, -1,  0,4,-l,  1,9 
.2,  1 ,-l ,-l ,  3, 12.-1  !  PHI 

7100  DATA  2, 8, -2,  0,S,-1,  2, 12,-1,  2, 14,-1  ,1, 13,-1  ,0, 14,-1  'SQUARED 

7110  DATA  0,0, -2,  1,0,-!  ,3, 2,-1  ,3, 3,-1  ,2, 3,-1  , 1 ,5,-1  ,0,6,-l  ,0, 10,-1  ,1,1 

1,-1  ,2, 11,-1  ,3, 10,-1  ,2, 9,-1  ,1, 11,-1  ,1, 12,-1  !  ZETA 

7120  DATA  0,3, -2  ,0,7,-l  ,1,9,-1  ,2, 9,-1  ,3, 7,-1  ,3, 3,-1  ,2, 1,-1  ,1,1,-1  ,0,3, 

-1  ,0,3, -1  ,3, 5,-1  !  THETA 

7130  DATA  0,5, -2  ,3, 3,-1  ,G,-3,-l  ,3, -3,-1  ,1,1, -2  ,2, 1,-1  •  EUROPEAN  Z 

7131  DATA  1,7,1  .2, 7,-1  ,3, 4,-1  ,3, 14,-1  ,54,14,-1  '  SORT 

7140  01  d_ch*r*J«’"‘ 

7150  N»w .udc <CHR*< 168) ,Syl <*> )  !  PHI 

7160  N«w\jdc <CHR*< 169) ,Sy2<*> )  !  SQUARED 

7170  N««_gdc <CHR*  < 1 70)  ,Sy3  <*) )  !  ZETA 

7180  New  udc  <  CHRJ  (171)  ,Sy4  <•*)  )  1  THETA 

7190  M«w_udc <CHR*< 172) ,Sv5<*» )  !  Z 

7191  N*w_udc <CHR*< 173) ,Sv6<*> )  !  SQUARE  ROOT 

7200  SUSEND 


END 

FILMED 


